problemas con insert para access

[ValentinoMolinari]

mmmmmmm la verdad no trabajo de esa manera, prueba lo siguiente:
StrSql = "Insert Into TabPrueba(Nombre,Telefono) Values('" & trim(me.txtNombre) & "'," & val(me.txtTelefono) &") "

Comando.CommandType = adCmdText
Comando.CommandText = STRSQL
Comando.Execute


aqui esta el módulo donde declaro las variables te lo copio entero

Option Explicit
Public TipoMov As Integer
Public Operador As String
Public cn As ADODB.Connection
Public Comando As ADODB.Command
Public StrAux As String
Public gTitulo As String
''creo variable para consulta
Public STRSQL As String
''creo variable para update
Public StrUpdate As String
''creo variable para insert
Public strInsert As String
Public Record As ADODB.Recordset
Public rs As ADODB.Recordset
Public FncAux As ADODB.Recordset
'Public fMainForm As MDIForm1
'Private LCID As Long ' LCID del idioma actual
'Global lbl As String
'Public strserver As String
Public ConData As String

Public strcn As String


Public Sub main()

strcn = App.Path & "\jm.mdb"
On Error GoTo ErrAbr


Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn

Set FncAux = New ADODB.Recordset ' Solo para funciones

ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show' Aca llamas al Formulario Principal de Tu Aplicación
End Sub


esto esta declarado a nivel módulo, y eso debes configurar el visual con Microsof DataObjects 2.1 o 2.6 que se encuentra en las referencias, si no entiendes algo me lo preguntas
valentino_m_2@hot...