Option Explicit
Dim gobjConn As New cADO
Dim k As Integer
k = gobjConn.Connected("数据库名称", "IP地址", "sa", "sa密码")
If k = 0 Then
Label1.Caption = Now() & " 连接--数据库服务器失败!"
Label1.ForeColor = &H8000&
Else
Label1.Caption = Now() & " 与数据库连接成功!"
Label1.ForeColor = &H8000&
End If
连接数据库就是这么简单,同时支持vb.net,VB.NET先引用YYData.dll,vb6直接系统注册一下 regsvr32 YYData.dll。