Buenas tardes estoy tratando de insertar variables en campos de una tabla utilizando insert to pero no me reconoce las variables e tratado de ponerle las comillas pero no doy con la solucion este es el codigo:
Private Sub Comando40_Click()
Dim nom As String
Dim nro As String
nom = nombre
nro = (nro_identificacion)
intx = DCount("*", "[historial]", "
[nro_identificacion]= '" & nro & "'")
If intx = 0 Then
Dim SQL As String
MsgBox (nro)
MsgBox (nom)
SQL = "INSERT INTO
historial(nombre,nro_identificacion)
VALUES ( nom,nro )"
DoCmd.RunSQL SQL
DoCmd.OpenForm "historial"
Else
DoCmd.OpenForm "historial"
End If
End Sub
Por favor agradeceria altamente ayuda