¿Hay algún problema con Excel VBA llamando a ADODB?

Atenuar CNN como nueva ADODB.Connection

Atenuar RS1 como ADODB.Recordset

atenuar strCn como cadena

atenuar sql como cadena

Establecer RS1 = Nuevo ADODB.Recordset

Establecer CNN = Nuevo ADODB.Connection

CNN.CursorLocation = adUseClient

strCn = "Proveedor =Microsoft.Jet.OLEDB.4.0;Contraseña=123;fuente de datos = O:\schedule\BS Schedule\Marco Temp Data\537.mdb;Persist Security Info=True" ----Puedes cambiarlo aquí

CNN.open (strCn)

sql = "select * from tablename "--Indicar cambios

RS1.Open sql, CNN, adOpenKeyset, adLockOptimistic, adCmdText

rs.MoveFirst

Para I = 1 a 1000

ComboBox1.AddItem RS1.Fields("Marca")

RS1.MoveNext

Siguiente I

RS1.Close

Establecer RS1 = Nada

Establecer DB1 = Nada

Salir Sub

100:

MsgBox "No se encontró ningún registro coincidente", 1 + 16, "Mensaje del sistema"

Si no, establezca RS1 = Nada

Establecer DB1 = Nada, intenta comentarlo