Visual Basic - Conexión con ODBC acucobol

Necesito acceder mediante ODBC a las tablas de una bb.dd. que está en acucobol. He creado en el panel de control de windows, orígenes de datos la DSN de usuario (la he llamado DATOACU), con la referencia a las tablas que quiero abrir. Si abro el Access y accedo y le digo nueva tabla y elijo este orígen de datos, me vincula / importa la tabla que yo quiera perfectamente. Ahora bien, no sé como conectar con esta tabla desde Visual. Encuentro muchos ejemplos para acceder a sql server, y otros pero no para Acucobol.

Debería ser algo así, pero no sé lo que me falta.

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=DSN=DATOACU;DBQ=C:\BP\TABLA;RemotePort=20222;;SERVER=NotTheServer"

¿Alguien me podría ayudar?

Gracias

A mi me funciono asi:

Function Ejecutar_Sql(cSql As String, Optional sBase As String, Optional sDSN As String, Optional sUid As String, Optional sPwd As String) As ADODB.Recordset
On Error GoTo errores
Dim ADOBase As New ADODB.Connection

ADOBase.CursorLocation = adUseClient
ADOBase.CommandTimeout = 0

ADOBase.Open "PROVIDER=MSDASQL;dsn=" & sDSN & ";uid=" & sUid & ";pwd=" & sPwd & ";database=" & sBase & ";"

Set Ejecutar_Sql = ADOBase.Execute(cSql)

Set ADOBase = Nothing

DoEvents

Exit Function
errores:
MsgBox Err.Description, vbExclamation, "error"

End Function

Dim empresas As ADODB.Recordset
Dim sql As String

sql = "select * from empresas"
Set empresas = Ejecutar_Sql(sql, "C:\acuodbc", "AcuODBC", "", "")

If empresas.RecordCount > 0 Then
do while not empresas.eof
' Muestras datos
empresas.movenext
loop
end if

''PD: si tienes on AcuOdbc gratis para instalar x q yo tengo uno x 1 meses.