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

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

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