关于一个VB连接SQL的问题，这个代码出现“用户定义类型未定义”，

一个用VB连接SQL数据库连接的模块！ 
［ 作者：佚名 转贴自：本站原创 点击数：3107 更新时间：2004-2-26 文章录入：cwbb ］ 
［ 作者：internet 转贴自：internet 点击数：54 更新时间：2004-1-17 文章录入：ieliel ］ 
下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单： 
代码如下： 
Public rsNew As ADODB.Recordset 
Public CnNew As ADODB.Connection 
Public addFlag As Boolean 
'连接数据库 
Public Function OpenCn() As Boolean 
Dim Mag As String 
On Error GoTo strErrMag 
Set CnNew = New ADODB.Connection 
CnNew.ConnectionTimeout = 25 
CnNew.Provider = "sqloledb" 
CnNew.Properties("data source").value = "" 'SQL服务器的名 
CnNew.Properties("initial catalog").value = "pubs"'库名 
CnNew.Properties("integrated security").value = "SSPI"'登陆类型 
'con.Properties("user id").value = "sa" 
'con.Properties("password").value = "wwww" CnNew.Open 
OpenCn = True 
addFlag = True 
Exit Function 
strErrMag: 
Mag = "数据库末连接" 
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接") 
addFlag = False 
End 
End Function 
Public Sub Clocn() 
'闭关数据库 
On Error Resume Next 
If CnNew.State <> adStateClosed Then CnNew.Close 
Set CnNew = Nothing 
End Sub 
Public Function OpenRs(ByVal strSql As String) As Boolean 
'连接数据库记录集 
Dim Mag As String 
Dim rpy As Boolean 
On Error GoTo strErrMag 
Set rsNew = New ADODB.Recordset 
If addFlag = False Then rpy = OpenCn 
With rsNew 
.ActiveConnection = CnNew 
.CursorLocation = adUseClient 
.CursorType = adOpenKeyset 
.LockType = adLockOptimistic 
.Open strSql 
End With 
addFlag = True 
OpenRs = True 
Exit Function 
strErrMag: 
Mag = "数据库数据集末连接" 
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接") 
OpenRs = False 
End 
End Function 
Public Sub cloRs() 
'闭关数据集 
On Error Resume Next 
If rsNew.State <> adStateClosed Then rsNew.Close 
Set rsNew = Nothing 
End Sub 只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了