Dim base_db As Workspace
Dim conn_db As Connection
Dim recor_db As Recordset
Set base_db = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Set conn_db = base_db.OpenConnection("Connection1", _
dbDriverPrompt, _
False, _
"ODBC;DATABASE=DeBASE;UID=;PWD=;DSN=PostgreSQL30")
при запуске выдаёт
run-time error 13
Type Mismacth
похоже что на строке
"ODBC;DATABASE=DeBASE;UID=xxx;PWD=xxxx;DSN=PostgreSQL30"
но что это может быть?