Visual Basic - Problemas para añadir datos en VB6.0

Buenas tardes,

Primero que nada quiero felictarles por este maravillosa comunidad de programacion.

Les cuento: Tengo una base de datos llamada "empleados" en ellas se encuentra las siguientes tablas: salarios, cargo y empleado.

En un form y utilizando el ADO de data control conecte la base de datos y la tabla mi codigo es el siguiente:

Option Explicit
Private Sub Form_Load()
Text2 = ""
Option2.Value = True
'
' Indicar el path correcto de la base de datos
' ¡ACUERDATE DE PONER EL PATH CORRECTO!
Const sPathBase As String = "C:\Documents and Settings\Aneida\Mis documentos\proyecto de pba\empleados.MDB"
'
' Crear la conexión manualmente
' Con "Provider=Microsoft.Jet.OLEDB.4.0;" se permite abrir bases de datos de Access 2000
With Me.Adodc1
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
' Indicarle de que tabla vamos a leer los datos
.RecordSource = "Salarios"
End With
' Indicar el DataSource de los Textboxes
' ya que con ADO se puede asignar en tiempo de ejecución
Dim i As Long
For i = 0 To 1
Set Text1(i).DataSource = Adodc1
Next
' Asignar los campos
Text1(0).DataField = "Cod_salario"
Text1(1).DataField = "salario"

' Mostrar en las etiquetas el campo a usar
For i = 0 To 1
Label1(i).Caption = Text1(i).DataField & ":"
Next
End Sub

Tengo 2 botones el priemro se llama "Nuevo" y lo q hace es colocar la caja de tesxto en blanco:
Private Sub Nuevo_Click()
Dim i As Long
For i = 0 To 1
Text1(i) = ""
Next
End Sub

El otro boton y el que me da error, es el de guardar, su codigo es el siguiente:

Private Sub cmdguardar_Click()
validar
' Añadir un nuevo registro
Adodc1.Recordset.AddNew
' Añadimos algún texto, para que no se pierda este registro
' Actualizamos los datos
Adodc1.Recordset.Update
' Hacemos que se "recargue" los datos del recordset
Adodc1.Refresh
' Movemos al último registro para que los cambios se hagan permanentes
' y se muestre el nuevo registro
Adodc1.Recordset.MoveFirst
End Sub

Private Sub validar()
If Text1(0) = "" Then
MsgBox ("El codigo no puede quedar vacio")
Text1(0).SetFocus
Exit Sub
End If
If Text1(1) = "" Then
MsgBox ("El salario no puede quedar vacio")
Text1(1).SetFocus
Exit Sub
End If
End Sub

Coloco los datos y cuando hago click en "guardar" me sale el siguiente error: "El registro no se puede eliminar ya que incluye datos relacionados".

La base de datos esta hecha en access, no se que puedo hacer... les agradeceria mucho su colaboracion.

Gracias

sera que hay algo malo en la sintaxis guardar?, he revisado pero no le veo nada. me puedes ayudar?

Como siempre pasa contigo: magnífica respuesta, compa ...
¡Que bueno que tú no menosprecias a los demás!

sera que alguien, me puede ayudar?

Buenas, nadie nace aprendido Iván como dice Einsten "Todos somos ignorantes, lo que pasa es cada quien ignora algo diferente".

Se supone que este Foro es para aprender y pulir sus fallas, así que creo que estas dando una mala impresión de este foro con tus comentarios NEGATIVOS que no aporta en NADA a este foro. Gracias