VB6与SQLServer数据库连接实例ADO

Option ExplicitDim gobjConn As New cADO Dim k As Integerk = gobjConn.Connected("数据库名称", "IP地址", "sa", "sa密码")If k = 0 ThenLabel1.Caption = Now() & " 连接--数据库服务器失败！"Label1.ForeColor = &H8000&ElseLabel1.Caption = Now() & " 与数据库连接成功！"Label1.ForeColor = &H8000&End If

连接数据库就是这么简单，同时支持，先引用YYData.dll，vb6直接系统注册一下regsvr32 YYData.dll。