用ODBC试一试
配置好数据源
使用相应的权限

解决方案 »

  1.   

    用ODBC连,再在VB中设置好相应的连接字符串。
      

  2.   

    再试一试:Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strcnn As String
        Set con = New ADODB.Connection
        Set rs = New ADODB.Recordset
        
        con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=databasename;Data Source=servername"    rs.CursorLocation = adUseClient
        rs.CursorType = adOpenStatic
        rs.Open S_SQL_str, con, adOpenDynamic, adLockOptimistic
      

  3.   

    补:
    S_SQL_str="select * from 表"