实在太难了，这样的东西!~~~~!~~~~~!~~~

Question

你重表启动VB或启动机器试试吧！

Answer 1

一样  要不要重装试试？

Answer 2

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strText As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=sqloledb;Data Source=QQ-03FIJRCFBORK;Initial Catalog=temm;User Id=sa;Password=sa;"
cn.CursorLocation = adUseClient
cn.OpenSet rs = New ADODB.Recordset
rs.Open "select * from 客户表", cn
Set ado_czjlb.Recordset = rs
ado_czjlb.Refresh