Preguntas de Programacion?

[kevja]

Buenas estoy en visual 6 y trato de conectar una base de datos de access nesesito poder añadir un registro lo corro y todo normal pero cuando lleno los campos y apacho Nuevo me sale la confirmacion muy bien cuando apacho ok me sale Run-time error `438`:

Object doesn't support this property or method

le apacho a Debug y me marca el


Data1.Recordset.AddNew

Este es mi codigo para agregar uno nuevo:

Private Sub cmdNuevo_click()
confirma = MsgBox("Introducir nuevo registro?", vbOKCancel, "añadir registro")
If confirma = vbOK Then
Data1.Recordset.AddNew
txtNombre.SetFocus
End If
End Sub