做了一个系统，但是在运行窗体时提示“为发现数据源名称并且未指定默认驱动程序”，请问怎样解决？
代码如下：
Private Sub Form_Load()
    Dim i As Integer
 Adodc1.ConnectionString = PublicStr
  Adodc1.RecordSource = "select * from Users"
  Adodc1.Refresh
End Sub

PublicStr 没有取到数据库连接字符串

PublicStr = "DRIVER=SQL Server;SERVER=服务器名;UID=sa;PWD=;APP=Visual Basic;WSID=;DATABASE=数据库名;Network=DBMSSOCN"

这个不是在公共连接那里的吗？ 我附上系统，你帮忙看下在哪里修改？

[ 本帖最后由 FLY_2009 于 2009-11-23 22:32 编辑 ]

不在控件中设置数据库连接，Provider=MSDASQL.1;Persist Security Info=False;Data Source=JCXS;Initial Catalog=JCXS
SQLServer不使用Data Source=JCXS

在模块中添加
Public Function cnstr() As String    '定义函数
  '返回一个数据库连接
 cnstr = "DRIVER=SQL Server;SERVER=服务器名;UID=sa;PWD=;APP=Visual Basic;DATABASE=CarSaleSys"
 End Function
在用到Adodc1的窗体中
Adodc1.ConnectionString = cnstr