Llenar un DataGridView Visual 2008 Express

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\user.accdb"

Dim ocom As New OleDb.OleDbConnection(connectionString)

Dim ds As New DataSet

Dim Oc As New OleDbCommand

Dim da As New OleDbDataAdapter

da.SelectCommand = Oc

da.SelectCommand.Connection = ocom

Oc.CommandText = "SELECT * FROM productos WHERE nombre LIKE " & "'" & txtproducto.Text & "%" & "'"

da.Fill(ds, "Productos")

DataGridView1.DataSource = ds.Tables("Productos")