bueno muchachos ya por fin pude ingresar bien el nuevo cliente usando ADO al base de datos pero no he podido ingresar un nuevo departamento

me aparece un error que dice asi:

error -2147217904 en tiempo de ejecucion .
no se haqn especificado valores sobre algunos de los parametros requeridos, este es el codigo,EL ERRO ME APARECE EN CN.SQL STRING antes del RS.CLOSE

Private Sub cmdGuardar_Click()

Dim Codigo As Integer
Dim Cnn As New ADODB.Connection
Dim ruta As String
Dim SQL As String

ruta = App.Path & "\SystemChi_final.mdb"
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path + "\SystemChi_final.mdb" & ";" & _
"Jet OLEDBatabase Password=aml"

If Combo1.Text <> "" And Text1 <> "" And Text2 <> "" Then
Dim Rs As New ADODB.Recordset
SQL = "Select top 1 CodigoDepartamento From TblDepartamento Order By CodigoDepartamento desc"
'Rs.Open SQL, Cn, adOpenStatic
SQL = "INSERT INTO TblDepartamento Values (" & Text1 & "," & Combo1 & ",'" & Text2 & "')"
Cn.Execute SQL
Rs.Close
Set Rs = Nothing

Else
MsgBox "debe agregar un nombre y seleccionar un pais para poder continuar la operacion", vbCritical, "Se ha producido un Error"
End If
End Sub

__________________
Carlos Andres Valencia C