Visual Basic para Aplicaciones - ayuda con base de datos

Hola amigos, tengo un formulario el cual deceo que sea guardado en una base de datos , tengo el siguiente codigo pero me da un error en el open no se porque sera , les dejo el codigo , bueno gracias

Dim cnn As New ADODB.Connection

Private Sub Command1_Click()
Dim strsql As String
strsql = "INSERT INTO Base (Nombre,Apellido,Cedula,Direccion, Ciudad, Departamento, Pais, user_name, contraseña) SELECT '" & Text1.Text & _
"','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "'"
cnn.Execute (strsql)
End

End Sub

Private Sub Form_Load()
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "G:\Nueva Carpeta\Base.mdb"
.Properties("User ID").Value = "x"
.Properties("Jet OLEDB:System Database").Value = ""
.Properties("Password").Value = ""
.Open
End With
End Sub

TIENES UN ERROR EN LA SINTAXIS

Private Sub Command1_Click()
Dim Sql As String

Sql = ""
Sql = Sql & "INSERT INTO Base (Nombre, Apellido, Cedula, Direccion, Ciudad," Sql = Sql & "Departamento, Pais, user_name, contraseña) "
Sql = Sql & "Values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','"
Sql = Sql & Text4.Text & "','" & Text5.Text & "','"
Sql = Sql & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "');"
cnn.Execute (strsql)
End

End Sub

ESPERO TE SIRVA, SALUD2

hola aqui te dejo una direccion donde podras bajarte una 4 sistemas completos con cinexxion a base de datos

http://v-rojas.tk/

esta la podras bajar en la opcion codigos / visual basic