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 = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString="driver={sql server};server=.;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
MsgBox "用户名不能为空，请重新输入用户名！",vbOKOnly + vbExclamation,"警告"
txtUserName.SetFocus
Else
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!","警告"
txtUserName.SetFocus
Else
'登录成功，连接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密码不正确，请重输入密码!","警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub

其中server= . ；参数是用来访问本地服务器，还可以写成server=（local）；或将server设置成本地服务器名（一般为计算机名，可登陆sql server服务器查看）。uid=sa；pwd=；用来指定安全登录的登录名和所需的密码，如果用sa登录名登陆的话可以通过在sql server的对象资源管理器的安全性——登录名——sa右击属性来设置是否需要密码，然后确定pwd的值与所设密码一致。Database=student；用来设定所访问的数据库名。

2. 有源数据库连接

ODBC数据源分为以下三类：

（1）用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。

（2）系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。

（3）文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。

创建ODBC数据源的步骤

（1） 启动控制面板。

（2） 双击ODBC图标，启动ODBC数据源。

（3） 换到“用户DSN”标签，单击“添加”。选择sqlServer作为数据源的驱动程序。

（4） 为数据源命名，按提示操作即可创建ODBC数据源。

创建有源数据库连接

创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。

（1） Database：字符串表达式，指定服务器上的数据库名称。

（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。

（3） PWD：字符串表达式，为ODBC数据源指定用户口令。

（4） DSN：字符串表达式，指定连接的ODBC数据源名称。

利用已配置好的ODBC数据源进行连接。

仍旧以建立登录系统为例，首先创建ODBC数据源名称为stud，通过ADO与数据库student进行连接，vb代码只需要将connection对象的connectionstring属性的参数做以下更改就行：

conn.ConnectionString="DSN=stu;uid=sa;pwd=; Database=student"