Visual Basic - agregar registro

Private Sub Form_Load()
Set RS_Pelicula = CreateObject("adodb.recordset")
Base.Open (MiDSN)
Rs_Tipo.CursorLocation = adUseClient
Rs_Tipo.CursorType = adOpenStatic
Rs_Tipo.Open "select * from tipo_disco", Base, adOpenDynamic, adLockOptimistic, adCmdText
Rs_Disco.Open "Select id_disco, nombre, tipo_disco.detalle as deta, disco.id_tipodisco from disco, tipo_disco where disco.id_tipodisco = tipo_disco.id_tipodisco ", Base, adOpenDynamic, adLockOptimistic
RS_Pelicula.Open "select id_pelicula, titulo, f_estreno, genero.detalle as gnro, id_disco from pelicula, genero where pelicula.id_genero = genero.id_genero", Base, adOpenDynamic, adLockOptimistic
end sub

Private Sub CmdAgregar_Click()
habilitar (True) ' habilita los botones y textbox
Borrar_txt ' borro los datos contenidos en los textbox, para ingresar nuevos
Rs_Disco.MoveLast
Rs_Disco.AddNew ' aca me da el error no me deja crear un nuevo registro
End Sub
Private Sub Cmdguardar_Click()
habilitar (False)
Rs_Disco.Update
end sub

y que error te da?

que es lo que quieres agregar?

No me deja agregar nuevos registros, en la base de datos, me da el error
run time '-2147217842 (80040e4e)' justo cuando ago el addnew, que puede ser
y perdon por no ser muy especifico la primera vez