Problema con una sentencia SQL

Hola estoy desarrollando una pequeña macro en Excel con VB, tengo dos libros de excel y uno de ellos lo ocupo como Base de Datos y el otro es la macro, mi problema es que cuando quiero insertar varios registros que tomo de los textbox o un combo box en el otro libro desde la macro me aparece este error (te pongo mi código y el error)
Function buscar()
Call conectar
SQL = "SELECT nombre FROM [EMPLEADO$] where nombre='" & textnombre.Text & "'"
recSet.Open SQL, cnn, adCmdText
If (recSet.RecordCount = 0) Then
MsgBox ("No existe el empleado")
Else
band = 1
End If
' MsgBox (band)
recSet.Close
cnn.Close
Set recSet = Nothing
Set cnn = Nothing
End Function
Function insert()
Call buscar
If (band = 1) Then
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\Documents and Settings\Jesus\Escritorio\BD21.xls"
.Properties("Extended Properties") = "Excel 8.0;HDR=Yes"
.Open
End With
SQL = "INSERT INTO [USUARIO$] (nombre,username,contraseña, pregunta,respuesta) VALUES ('" & textnombre.Text & "','" & textid.Text & "', '" & textrepite.Text & "' ,'" & comselecciona.Text & "','" & textrespuesta.Text & "')"
cnn.Execute SQL
cnn.Close
End If
Set cnn = Nothing
End Function
Se ha producido el error'-2147217913(80040e07) En tiempo de ejecucuion
No coinciden los tipod de datosen la expresión de criterios
Espero y me puedas ayudar de antemano gracias.