Visual Basic - problemas con base de datos

saludos, tengo problemas para poder guardar datos en la tablas, tengo este codigo:
en un modulo tengo esto:
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

cuando inicio el proyecto esto:
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Proyecto \Base\base1.mdb;Mode=Readwrite;Persist Security Info=False"
cn.Open

rs.Open "select * from principal", cn, adOpenDynamic, adLockBatchOptimistic

rs.AddNew
rs!campo = txtcampo
rs!pozo = txtpozo
rs.Update

se ejecuta bien, abre la base, abre la tabla, asigna pero no guarda los registros.
en un formulario inserte un ADODC y un datagrid para probrar la coneccion con la base de datos y esta bien con estos objetos.

LA BASE DE DATOS ES EN ACCESS

PREGUNTO SERA QUE DEBO INSTALAR ALGUN SERVICE PACK? CUAL?
GRACIAS

Mejor porque no utilizas la sentencia INSERT .

cn.execute "insert principal values('" & txtcampo & ", '" & txtpozo & "'')"

recordset.UpdateBatch

utilizas adLockBatchOptimistic luego para guardar y actualizar registro has de usar UpdateBatch

TU EJEMPLO:
rs.Open "select * from principal", cn, adOpenDynamic, adLockBatchOptimistic

rs.AddNew
rs!campo = txtcampo
rs!pozo = txtpozo
rs.UpdateBatch