Error "Insert to" en vb6

[buxforever]

Acudo nuevamente a ustedes para haber si me aclaran un poco este problema...

Bueno el problema este



Solo me marca ese error al momento de ingresar los datos a la base de datos..

y al momento de depurar me manda a esto



y el codigo es este....

Código vb:

Option Explicit
 
 
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
 
Private Sub Ejecutar_Comando( _
    sql As String, _
    conexion As ADODB.Connection)
    
    ' nuevo Command
    Dim Comando As New ADODB.Command
    
    ' propiedades
    With Comando
        .ActiveConnection = cn ' Especificar la conexión a usar
        .CommandText = sql ' Especificar el Contenido del comando
        .Execute ' ejecutar el command '''Aqui es donde me marca el error
        Set Comando = Nothing
        
        ' Cargar los datos en la grilla
        Call Cargar_Grilla(RAlumno.DataGrid1)
    End With
End Sub
 
' cargar la grilla con el contenido del rs
Private Sub Cargar_Grilla(grilla As Object)
    rs.Requery
    Set grilla.DataSource = rs
End Sub
 
 
Private Sub Form_Load()
    
    ' Abre la conexión, y el Recordset
    Call Iniciar_Conexion
 
    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .Open "tabla", cn, adOpenStatic, adLockReadOnly, adCmdTable
    End With
    
    Call Cargar_Grilla(RAlumno.DataGrid1)
    
    
End Sub
 
' Inicializa la conexión ADO
Public Sub Iniciar_Conexion()
 
    If cn Is Nothing Then
       Set cn = New ADODB.Connection
       
       With cn
         .CursorLocation = adUseClient
         .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                App.Path & "\Basetemp.mdb" & ";Persist Security Info=False"
        End With
    End If
End Sub
 
' Cierra un Recordset
Sub Cerrar_Recordset(rst As ADODB.Recordset)
    If Not DataGrid1.DataSource Is Nothing Then
            
       Set DataGrid1.DataSource = Nothing
    End If
    If Not rst Is Nothing Then
       If rst.State = adStateOpen Then rst.Close
       Set rst = Nothing
    End If
End Sub
 
' Cierra el objeto Connection
Sub cerrar_Conexion(pCn As ADODB.Connection)
    If Not pCn Is Nothing Then
       If pCn.State = adStateOpen Then pCn.Close
       Set pCn = Nothing
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Call Cerrar_Recordset(rs)
    Call cerrar_Conexion(cn)
End Sub
 
Private Sub KewlButtons1_Click()
 
    If Text66.Text = "" Or _
       Text1.Text = "" Or _
       Text68.Text = "" Then
         MsgBox "Datos incompletos", vbCritical, "Error ..."
         Exit Sub
    End If
    
    sql = "Insert Into tabla " _
                     & "(No Control,Parentesco,Edad) " _
                     & "Values ('" & Text66.Text & _
                     "','" & Text1.Text & "'," _
                     & Text68.Text & ")"
    
    Call Ejecutar_Comando(sql, cn)
End Sub
 

Se lo agradecere mucho al que ayude...

[buxforever]

Ya solucione el problema .....

Muchas Gracias de todos modos