Visual Basic.NET - LLenar Datagrid

Aqui les dejo como llenar un datagrid.

Private Sub LLENAGRID()
Dim DA2 As New OleDbDataAdapter
Dim Oconn As OleDbConnection
Dim ds As New DataSet
strsql = "select * from inventario"
Oconn = New OleDbConnection(funciones.conexion_ACCESS)
DA2.SelectCommand = New OleDbCommand(strsql, Oconn)
DA2.Fill(ds)
Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataMember = ds.Tables(0).TableName
End Sub



*NOTA conexion_ACCESS: está dentro de una función:

Public Shared ReadOnly Property conexion_ACCESS() As String
Get
Return "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\DATOS\datos.mdb"
End Get
End Property