Como se te ha indicado anteriormente, para insertar, modificar o eliminar datos en una BD utilizando SQL no es necesario abreir ningún recordset. No es necesxario leer nada para realizar ese tipo de acciones.
Por otro lado el error que te está dando es porque no das valores para todos los campos de la tabla, si esto es así porque no es necesario ponerlos deberás pones la cláusula SQL completa, si es porque se te ha olvidado algún valor deberías revisar la orden:
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 OLEDB
atabase Password=aml"
If Combo1.Text <> "" And Text1 <> "" And Text2 <> "" Then
SQL = "INSERT INTO TblDepartamento (AQUI IRÍAN LOS NOMBRE DE LOS CAMPOS A LOS QUE LES ESTAS DANDO VALOR SEPARADOS POR COMAS) Values (" & Text1 & "," & Combo1 & ",'" & Text2 & "')"
Cn.Execute SQL
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
:smt004