¿Cómo acceder de forma remota a la base de datos de acceso en vb6.0?

Dim cn como nuevo ADODB.Connection, rs1 como nuevo ADODB.Recordset, sql como cadena 'definido en la declaración común, donde cn es el objeto de conexión y rs1 es Recordset, sql es la declaración de consulta

Private Sub Form_Load()

cn.Open "provider=microsoft.jet.oledb.4.0; data source=" App.Path "(nombre de la base de datos.mdb)" ""

sql = "seleccionar * del nombre de la tabla"

rs1.Open sql, cn

rs1.MoveFirst

sql = "seleccionar * del nombre de la tabla"

rs1.Open sql, cnMoveFirst

Hacer mientras no rs1.EOF

Combo1. AddItem rs1( "nombre del campo")

rs1.MoveNext

Bucle

rs1.Close

EnterpriseClose

End Sub

La operación anterior es abrir la base de datos para realizar consultas y escribir los resultados de la consulta en el cuadro de lista

Si no está seguro, déjeme un mensaje y envíeme un programa ejecutable para mi referencia

Combo1.AddItem rs1("Nombre de campo").