Visual Basic - CONEXION POR CODIGO DE ADO CON ACCESS 2000

Hola, necesito saber como se conecta mediante código una Bd de access 2000 mediante código, contiene campos lógicos, enteros y de texto.

Si pongo todos los campos de texto funciona bien, pero cuando introduzco los lógicos y enteros falla.

Gracias

Global cnnBase As ADODB.Connection
Global rsTabla As ADODB.Recordset
cnnArancel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_ App.Path & "\MiBase.mdb;Persist Security Info=False"

Set rsTabla = New ADODB.Recordset
rsTabla.ActiveConnection = cnnBase
Y despues hace las operaciones que vayas a realizar con la tabla, adicionar, borrar, modificar registros, etc.