DUVIDAS COM ADO.NET

Private Sub Inserir(ByVal Nome As String, ByVal Email As String)
	Dim MySQL as string = [Ô]Insert Into Cliente (nome, email ) values (@nome, @email)[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Banco.mdb[Ô])
	Dim Cmd as New OleDbCommand(MySQL, MyConn)
	cmd.Parameters.Add(New OleDbParameter([Ô]@nome[Ô], Nome))
	cmd.Parameters.Add(New OleDbParameter([Ô]@email[Ô], Email))
	MyConn.Open()
	cmd.ExecuteNonQuery
	MyConn.Close()
End Sub

Private Sub Pesquisar(ByVal Nome As String)
	Dim MySQL as string = [Ô]Select * From Clientes Where Nome LIKE [ô]%[Ô] & Nome & [Ô]%[ô] Order By codigo[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
	[Ô]Data Source=C:\Banco.mdb[Ô])
	Dim ds As DataSet = New DataSet()
	Dim Cmd as New OleDbDataAdapter(MySQL,MyConn)
	Cmd.Fill(ds, [Ô]Clientes[Ô])
	MyDataGrid.Datasource = ds.Tables([Ô]Cliente[Ô]).DefaultView
	MyDataGrid.DataBind()
	MyConn.Close()
End Sub

Private Sub Atualizar(ByVal Nome As String, ByVal Email As String, ByVal Codigo As String)
	Dim MySQL as string = [Ô]Update Cliente Set nome=@nome, email=@email Where codigo=@codigo[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Banco.mdb[Ô])
	Dim Cmd as New OleDbCommand(MySQL, MyConn)
	cmd.Parameters.Add(New OleDbParameter([Ô]@codigo[Ô], Codigo))
	cmd.Parameters.Add(New OleDbParameter([Ô]@nome[Ô], Nome))
	cmd.Parameters.Add(New OleDbParameter([Ô]@email[Ô], Email))
	MyConn.Open()
	cmd.ExecuteNonQuery
	MyConn.Close()
End Sub

Citação:

:
Segue um exemplo genérico de algumas operações usando o ACCESS:

INSERIR REGISTRO

Private Sub Inserir(ByVal Nome As String, ByVal Email As String)
	Dim MySQL as string = [Ô]Insert Into Cliente (nome, email ) values (@nome, @email)[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Banco.mdb[Ô])
	Dim Cmd as New OleDbCommand(MySQL, MyConn)
	cmd.Parameters.Add(New OleDbParameter([Ô]@nome[Ô], Nome))
	cmd.Parameters.Add(New OleDbParameter([Ô]@email[Ô], Email))
	MyConn.Open()
	cmd.ExecuteNonQuery
	MyConn.Close()
End Sub

PESQUISAR / LISTAR REGISTROS

Private Sub Pesquisar(ByVal Nome As String)
	Dim MySQL as string = [Ô]Select * From Clientes Where Nome LIKE [ô]%[Ô] & Nome & [Ô]%[ô] Order By codigo[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
	[Ô]Data Source=C:Banco.mdb[Ô])
	Dim ds As DataSet = New DataSet()
	Dim Cmd as New OleDbDataAdapter(MySQL,MyConn)
	Cmd.Fill(ds, [Ô]Clientes[Ô])
	MyDataGrid.Datasource = ds.Tables([Ô]Cliente[Ô]).DefaultView
	MyDataGrid.DataBind()
	MyConn.Close()
End Sub

ATUALIZAR REGISTRO

Private Sub Atualizar(ByVal Nome As String, ByVal Email As String, ByVal Codigo As String)
	Dim MySQL as string = [Ô]Update Cliente Set nome=@nome, email=@email Where codigo=@codigo[Ô]
	Dim myConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Banco.mdb[Ô])
	Dim Cmd as New OleDbCommand(MySQL, MyConn)
	cmd.Parameters.Add(New OleDbParameter([Ô]@codigo[Ô], Codigo))
	cmd.Parameters.Add(New OleDbParameter([Ô]@nome[Ô], Nome))
	cmd.Parameters.Add(New OleDbParameter([Ô]@email[Ô], Email))
	MyConn.Open()
	cmd.ExecuteNonQuery
	MyConn.Close()
End Sub

Como aprendizado, implemente a rotina para EXCLUSÃO e depois busque utilizar as boas práticas.