关于VB编程数据库的问题还有与access的建立

                        intlen As Integer) As Boolean
     If Len(txt.Text) <> intlen Then                      '如果输入数据位数不符合规定
          MsgBox "输入数据有误，请检查！"             '提示用户数据有误
          txt.SetFocus
          ISEquelLen = False
      Else
          ISEquelLen = True
      End If
End Function

Public Function OpenConn()
      Set conn = New ADODB.Connection                  '打开数据库链接
      conn.Open ConnStr    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
End Function

Public Function CloseConn()
      conn.Close                                  '关闭数据库链接
End Function

Sub Main()                                      '应用程序启动入口
      Dim frmLog As New frmLog                      '定义登录窗体变量
      Dim title As String                             '定义字符串变量用于记录程序标题

      If App.PrevInstance Then                            '检查应用程序实例是否运行
         title = App.title
         MsgBox "程序已经运行"                        '如果已经运行则提示用户
         App.title = ""
         frmMain.Caption = ""
         AppActivate title
      Else
         OpenConn
         frmLog.Show vbModal                          '打开数据库连接并显示登录窗体
         If Not gbLog Then                   '如果启动失败则提示用户
             MsgBox "系统启动失败，请重试！", vbOKOnly + vbExclamation, "警告"
         End If
      End If
      Unload frmLog
End Sub

有许多感叹号的那一栏是我的标注，应该是打开数据库的吧，但是这一条语句出了问题，教学的源代码数据库本来有，但是出现了SQL Server不存在或拒绝访问。还有我不懂怎么使程序与access建立（我是初学者），设计的目的是人事信息管理系统。请高手们来解决一下。

答案：SQL Server不存在或拒绝访问，你的SQL Server是否已经运行并能正确的访问。

用Access的话
 把conn.Open ConnStr
改成
 conn.Open ConnStr "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"

其中C:\db1.mdb是数据库文件，改成你自己的。

上一个：谁有简单的VB编程代码？初学者 - -。
下一个：VB编程问题，怎么调试，感激不尽！！！