Dim adoConnection As New adodb.Connection
'不带密码 没错
'adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};DBQ=d:\Borland\Shared\Data\"
'带密码 请测试
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};Password=XXXX;DBQ=d:\Borland\Shared\Data\"
Dim adoRecordset As New adodb.Recordset
adoRecordset.Open "select * from [employee.db]", adoConnection
MsgBox adoRecordset.GetString