Visual Basic - No puedo guardar los datos

yo tengo la siguiente sentenciaDim strSQL As String
If de1.rsCmdAñadir.State = adStateOpen Then de1.rsCmdAñadir.Close
strSQL = "Insert into SAT(NUMREP, NOMCLI, TIPOSAT, ACTIVOSAT, FECENT, FECSAL, MARCA, MODELO, NUMSER, ANOMA, FECINF, NOMTEC, HORINF, INFORME, REFREP, DESREP, UNIREP, DESPLA, KM, OPCANTACTAR, OPESPERA, OPFACTURA, OPREMESA) values ('" & TXTNUMREP & DCClientes & CDTIPO & CHACTIVO & TXTFECENT & TXTFECSAL & TXTMARCA & TXTMODELO & TXTNUMSER & TXTANOMINF & TXTFECINF & CBNOMTEC & TXTHORINF & TXTINFORME & TXTREFREP & TXTUNIREP & TXTDESINF & TXTKMINF & OPCONTACTAR & OPESPERA & OPFACTURA & OPREMESA & "')"
de1.cnorden.Execute strSQL, afectados
If afectados = 0 Then
MsgBox "Error al añadir la orden"
Exit Sub
End If
en de1.cnorden.Execute StrSql, afectados me dá un erro y me dice que el nº de valores y el de consultas no es correcto hay alguna sentencia mal escrita y xq? Gracias

En tu sentencia del script de SQL del insert te faltan las comas \" , \",
los valores van separados por comas, al igual que los nombres de los campos, porque si no se interpreta que es una solo valor el que le estas pasando...