Antes que nada, decirte q no necesitas abrir un nuevo recorset si vas a trabajar con sentencias sql, lo otro es que segun tu insert into, estas asumiendo que todos tus campos son de tipo texto, si es asi, solo te faltaria ver tu conexion. pero haber si algo asi te sirve.

Private Sub cmdGuardar_Click()
Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strsql As String
Dim ruta As String
'abrir la conexion
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"
strsql = "INSERT INTO TblCliente VALUES ('" & Text1 & "', '" & Text2 & "','" & Text3 & "', '" & Text6 & "','" & Text7 & "', '" & Text8 & "','" & Text4 & "','" & Text5 & "', '" & Text9 & "','" & Combo1 & "','" & Combo2 & "','" & Combo3 & "')"
Cn.Execute strsql
MsgBox "la tabla clientes has been updated with a new record"
Cn.Close
Set cnn = Nothing
End Sub