Sub OpenCNN()
Dim mLink As String
Dim DbUser As String, DbIP As String
DbUser = "login1" '用户名
DbPw = "1" '用户密码
DbPw = "zl" '数据库名
DbIP = "192.168.72.130" '服务器IP
mLink = "Provider=MSDataShape"
mLink = mLink & ";Data PROVIDER=MSDASQL”"
mLink = mLink & ";UID=”&DbUser"
mLink = mLink & ";PWD=”&DbPw"
mLink = mLink & ";DRIVER=SQL Server”"
mLink = mLink & ";DataBASE=”&DbName"
mLink = mLink & ";WSID=GQSOFT”"
mLink = mLink & ";SERVER=”&DbIP"
End Sub
-----------------------------------------------
Dim LV1 As ListItem
ListView1.ListItems.Clear
Call OpenCNN
SQL = "select * from 通讯录 "
RST.Open SQL, CNN, 1, 3
----------------------------------------------
程序编译时提示说：
RST.Open SQL, CNN, 1, 3
这段话出错了

@Luosen56 罗老师，按您给的代码，我把链接sql的字串做了个函数OpenCNN。在主程序中进行了调用。如下：
Dim LV1 As ListItem
ListView1.ListItems.Clear
Call OpenCNN
SQL = "select * from 通讯录 "
RST.Open SQL, CNN, 1, 3
然后最后一句出错。提示说上下文关闭？

我的sql数据库也搭建好了

OpenCNN()里并没有CNN.Open之类的语句，没连接数据库，所以后面的打开记录集就会出错

人家的东西是按ip进入啊

'　在 VB 中使用数据库表的步骤——
'　⑴　点击顶行菜单中的：工程 → 引用；勾选
'　　　Microsoft ActiveX Data Objects 6.1 Library
'　　　C:\Program Files\Comm Files\System\Ado\msado15.dll
'　⑵　声明全局变量
Dim cn As Object '　数据库连接对象变量
Dim rs As Object '　数据表记录集变量
Dim mLink As String '　数据库文件连接字符串
Dim mSQL As String '　使用数据库表的SQL命令字符串
'　⑶　构成连接字符串 mLink
Public Sub 连接数据()
Dim DbUser As String, DbPw As String
Dim DbName As String, DbIP As String
DbUser = "用户名"
DbPw = "用户密码"
DbName = "数据库名"
DbIP = "服务器IP"
mLink = "Provider = MSDataShape"
mLink = mLink & "; Data PROVIDER = MSDASQL"
mLink = mLink & "; UID = " & DbUser
mLink = mLink & "; PWD = " & DbPw
mLink = mLink & "; DRIVER = SQL Server"
mLink = mLink & "; DataBASE = " & DbName
mLink = mLink & "; WSID = GQSOFT"
mLink = mLink & "; SERVER = " & DbIP
End Sub
'　⑶　连接并打开数据库表
Public Sub 打开数据()
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Call 连接数据
mSQL = "Select * From 表名"
cn.Open mLink
rs.Open mSQL, cn, 1, 3
'　将数据填表并刷新表格控件
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.Refresh
End Sub
'　⑷　【Call 打开数据】即可看到表格中有数据了。
'　：

@Luosen56 罗老师，我的数据库测试成功了也按您说的修改了代码。可为什么还是找不到数据源？

@Luosen56 罗老师 ，说我没有注册类别，缺少什么？

'　在 VB 中使用数据库表的步骤——
'　⑴　点击顶行菜单中的：工程 → 引用；勾选
'　　　Microsoft ActiveX Data Objects 6.1 Library
'　　　C:\Program Files\Comm Files\System\Ado\msado15.dll
　　这一步，你做没有？

受教了