请各位好心的人帮我解决一个很急的问题！非常感谢。

Question

下面的程序是运行出错的地方。
出错提示信息是：[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并未指定默认驱动器
但我在数据源里面已经定义了一个“MSDASQL.1”的名称
在模块里也定义了：Option Explicit 
         Public conn As New ADODB.Connection请各位帮帮忙把，我真的好急，谢谢了。
Private Sub MDIForm_Load()
  ' 在主窗体中打开对数据库的连接
   Dim strCnn As String   '定义一个连接串变量
   strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=SellSystem"
   conn.Open strCnn
   '没有登录前设置各菜单不可用
   MDIfrmMain.mnchpwd.Enabled = False
   MDIfrmMain.mntrade.Enabled = False
   MDIfrmMain.mnbuy.Enabled = False
   MDIfrmMain.mnsell.Enabled = False
   MDIfrmMain.mngrade.Enabled = False
   MDIfrmMain.mntable.Enabled = False
End Sub

Answer 1

不好意思，忘拉写：提示信息停留在：conn.Open strCnn 处

Answer 2

'改变一下连接字符看看...'
'创建一个连接(连接到SQL)
'函数名:CreateSqlConn
'参数:  DbConnection ADODB连接,ServerName 服务器名,DBname 数据库名,UserID 登录用户名,UPw 登录密码,Timerout 连接超时
'返回值:TRUE 连接成功.FALSE 连接失败.
'例:    CreateSqlConn p_cnn,"CJH","cjherp001","sa","123",15
'
Public Function CreateSqlConn(ByRef DbConnection As ADODB.Connection, _
                              ServerName As String, _
                              DbName As String, _
                              UserID As String, _
                              UPw As String, _
                              Optional Timerout As Long = 15) As Boolean
    Dim ReturnVal As Boolean    On Error Resume Next    If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
       DbConnection.Close
    End If
'/连接1
    DbConnection.Provider = "MSDASQL.1"
    DbConnection.ConnectionString = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DbName & ";Uid=" & UserID & ";Pwd=" & UPw & ";APP=" & App.Path & ";WSID=" & UserID & ";Connect Timeout=" & Timerout & ";"
'/--------------------------------------------------------------------------------------------
'/连接2  Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=cjh
'/    DbConnection.Provider = "SqloleDB.1"
'/    DbConnection.ConnectionString = "Database=" & DBname & ";Server=" & ServerName & ";Uid=" & UserID & ";Pwd=" & UPw & ";Connect Timeout=" & Timerout & ";"
'/---------------------------------------------------------------------------------------------
    DbConnection.ConnectionTimeout = Timerout
    DbConnection.CommandTimeout = Timerout
    DbConnection.Open
    DoEvents
    If Err.Number = 0 Then
       ReturnVal = True
    Else
       Err.Clear
       ReturnVal = False
    End If
    CreateSqlConn = ReturnVal
End Function

Answer 3

一个建立连接字符串的方法。在vb中引用控件adodc用adodc生成连接字符串肯定不会出错。

Answer 4

如果MSDASQL是你配置与数据库的ODBC连接，你可以单击“测试数据源”按钮来测试配置是否成功。如果没有问题，试试以下代码：
    Dim strCnn As String   '定义一个连接串变量
    strCnn = "FileDSN=MSDASQL.dsn;UID=sa:PWD="
    conn.Open strCnn

Answer 5

同意 ukyoxh(我来学习) 
可以用adodc控件来生成一个连接字符串，这样可以看出问题在哪里。
“工程”－》“部件”：“Microsoft ADO Data Control 6.0”