Visual Basic - problema con una instruccion de agregar

hola ahora tengo un problem con un codigo ke no entiendo bueno si lo entiendo por ke ya lo habia puesto en optra aplicacion y lo quise poner en esta para ahorrar tiempo pero no me kiere funcionar no se por ke el problema es ke la instruccion de agregar no agrega nada este es el codigo completo ...gracias por tu ayuda me servira de mucho}

Option Explicit

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, _
adStatus As ADODB.EventStatusEnum, ByVal _
pRecordset As ADODB.Recordset)
' Mostrar el ID del registro actual
' si se pasa del primero o del último, dará error

On Local Error Resume Next

' Mostrar el ID del registro actual usando el recordset pasado como parámetro
'Adodc1.Caption = "ID del Registro: " & pRecordset!ID
' También se puede usar:
Adodc1.Caption = "Registro actual"

End Sub

Private Sub cmdvista_Click()
frmvistavideoteca.Show vbModal
Adodc1.Refresh
End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data source = C:\PROYECTO_VIDEOTECA.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "Videoteca"
Adodc1.Refresh
Dim i As Long

End Sub

Private Sub doADOAgregar()
Adodc1.Recordset.AddNew
Adodc1.Refresh
Text1.SetFocus
End Sub

Private Sub doADOCancelar()
'
If MsgBox("¿Deshacer los cambios?", vbYesNo + vbQuestion, _
"Cancelar Modifcaciones") = vbYes Then
Adodc1.Refresh


End If

Text1.SetFocus
End Sub

Private Sub doADOEliminar()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
Text1.SetFocus
End Sub

Private Sub cmdaccion_Click(Index As Integer)
'
With Adodc1
Select Case Index
Case 0: doADOAgregar
Case 1: doADOEliminar
Case 2: doADOCancelar
End Select
End With
End Sub

Private Sub cmdactualizar_Click()
Adodc1.Refresh
Text1.SetFocus
End Sub

'este codigo no se mueve
Private Sub cmdsalir_Click()
frmvideoteca.Visible = False
frmacceso.Visible = False
End Sub

es que no esta claro este codigo, ¿que es lo que quieres agregar?
normalmente el formato para agregar datos simpre es igual

.add o .addnew segun metodos
>>>>>datos a agregar
.update o .refresh dependiendo

pero siempre entremedias poner que quieres agregar

espero te ayude
;-)

sigo sin entender y el programa sigue sin funcionar..., ya hice lo ke me dijiste y no jala

En el Sub doADOAgregar() elimna "Adodc1.Refresh ".

ya hice eso pero todavia sigue sin funcionar help me please!!!1

Private Sub doADOAgregar()
Adodc1.Recordset.AddNew
Adodc1.Refresh
Text1.SetFocus
End Sub
fijate a ver si es esto.
1ro no veo que añadas ningun valor al registro.
2do siempre despues de un addnew. llama al .update del objeto para que confirme esos cambios.
a ver si es eso, espero sirva.
Saludos

gracias por tu ayuda buiena para la primera opcion el registro lo añado desde la aplicacion con textbox y cosas de esas ok no se sisea lo que tu me kisiste decir ..
bueno para lo segundo cuando llamo al update me marca un error por eso lo quite....el error es el siguiente me dice que es imposible insertar una fila vacia. debe contener al menos un valor de columna establecido...el error es en tiempo de ejecucion y no se como resolverlo por eso no lo inclui ...si tienes alguna otra solucin as mi problema te lo agradeceri amucho

private sub Command1_click()
On Error GoTo AE
With Adodc1.Recordset
.AddNew
!NombreCampo = Text1.Text
.Update
End With
Exit Sub
AE:
MsgBox Err.Description, vbCritical, Err.Number
end sub