Mantenimiento de tablas de access y vb.net

[theuchihahunter]

Bueno gente aqui tengo unas dudas de como realizar el matenimiento de una tabla de access en visual studio, lo que me han pedido es que no use clases por ahora y estoy realizando los codigos de la siguiente manera :
-- para visualizar los datos de la tabla:

Sub conecta3()
Dim cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Alumno\Desktop\PELICULAS 18.07.13\PELICULAS.accdb;Persist Security Info=true;"
cn.Open()
Dim da As New OleDbDataAdapter
Dim cm As New OleDbCommand
cm.Connection = cn
cm.CommandType = CommandType.Text
cm.CommandText = "select * from Peliculas"
da.SelectCommand = cm
Dim dt As New DataTable
da.Fill(dt)
cn.Close()
DataGridView1.DataSource = dt

End Sub

--para agregar :

Dim cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Alumno\Desktop\PELICULAS 18.07.13\PELICULAS.accdb;Persist Security Info=FALSE;"
Dim da As New OleDbDataAdapter
Dim cm As New OleDbCommand

Try
cn.Open()
cm = New OleDb.OleDbCommand
cm.Connection = cn
cm.CommandText = "Insert into peliculas(cod_peliculas,titulo,anno,duracion,gener o) values ('" & txtCod.Text & "','" & txtTitulo.Text & "','" & txtAnno.Text & "','" & txtDuracion.Text & "','" & txtGenero.Text & "')"
cm.ExecuteNonQuery()
cn.Close()
MsgBox("Registro Correcto", MsgBoxStyle.Information, "Registo de asistencia")
Catch ex As Exception
MsgBox("Error de conexion", MsgBoxStyle.Exclamation, "Registo de asistencia")
End Try




End Sub


y bueno me gustaría que me pudieran ayudar con el código para el botón modificar, se los agradeceria mucho, toda ayuda sera bien recibida