insertar registros

[federed]

hola,
tengo un form en donde los valores que ingreso, los tengo que pasar a access pero al hacerlo con adodc, me da el error de COMException
este es el código de conexión:

Código:

  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''''CONEXIÓN A ACCESS''''
        Dim strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\transporte.mdb"
        Dim dataAdapter As New OleDb.OleDbConnection(strConexion)
        Adodc1.ConnectionString = strConexion
        Adodc1.RecordSource = "movimientos"

    End Sub

y este el des botón (parte):

Código:

Adodc1.Recordset.AddNew(fecha,fecha.text)

gracias
pd: trabajo con vb2005