你用的是dsn联接?
1.可能是机器中未装数据源提供者,在控制面板的odbc32中配置。
2.使用联接字符串进行联接:
Dim Conn As New ADODB.Connection
Connstr$ = "provider=microsoft.jet.oledb.3.51;data source=" & filename
on error resume next
Err.Clear
conn.open connstr$
If Err.Number <> 0 Then MsgBox Err.Description, vbOKOnly + vbExclamation,"错误提示": Exit Function
你用的是什么联接?
1.可能是机器中未装数据源提供者,在控制面板的odbc32中配置。
2.使用联接字符串进行联接:
Dim Conn As New ADODB.Connection
Connstr$ = "provider=microsoft.jet.oledb.3.51;data source=" & filename
on error resume next
Err.Clear
conn.open connstr$
If Err.Number <> 0 Then MsgBox Err.Description, vbOKOnly + vbExclamation,"错误提示": Exit Function