Sub OpenConn()
    On Error Resume Next
    If DataBaseType = 1 Then
       connStr="Provider=SQLNCLI; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"

问题是这个，connStr="Provider=SQLNCLI;  2008SQL数据库链接字符串。