Vb 6.0与SQL Sever建立连接

         vb+SQL做了一个登录界面，运行时报错"对象变量或With块变量未设置"，然后点调试之后发现给记录集赋值并没有成功，最后发现其实是数据库并未连接成功。

VB通过ADO连接SQL Sever数据库可以分为有源数据库连接和无源数据库连接，它们的区别是是否使用了DSN（数据源名称）来决定。

1.      无源数据库连接

        所谓无源数据库连接并不是说不需要数据源，如果没有数据源谈何连接？只是无源数据库连接不需要配置ODBC数据源，利用ADO通过代码就可以实现连接。

无源数据库连接的实现需要在vb 6.0中引用Microsoft ActiveX Data Object 2.6 library和MicrosoftActiveX Data Object Recordset 3.6 Library两个组件，然后运用connection对象的connectionstring属性进行连接。

       以简单的登陆系统为例，首先要在sql sever数据库中建立一个以student为名的数据库，vb代码如下：

Option Explicit
Public LoginSucceeded As Boolean
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub cmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs &#