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。