我现在这样定义的!
Private Sub Form_Load()
    Dim a As New ADODB.Recordset
    Dim strsql As String
    strsql = "select * from 字典_商保项目"
    a.Open strsql, CLDB.Conn, adOpenKeyset, adLockBatchOptimistic
    If Not a.EOF Then
       MsgBox "不空"
    Else
       MsgBox "空!!!"
    End If
    a.Close
    Set a = Nothing
End Sub
连接通了!
那么我想让窗体中的TEXTNAME(TEXT控件)显示出a 中的内容怎么办呢!

Private Sub Form_Load() Dim i As Integer Dim strTemp As String

Dim a As New ADODB.Recordset Dim strsql As String strsql = "select * from 字典_商保项目" a.Open strsql, CLDB.Conn, adOpenKeyset, adLockBatchOptimistic If Not a.EOF Then MsgBox "不空" For i = 0 To a.Fields.Count - 1 strTemp = strTemp & a.Fields(i).Name & vbTab Next While Not a.EOF strTemp = strTemp & vbCrLf For i = 0 To a.Fields.Count - 1 strTemp = strTemp & a(i) & vbTab Next strTemp = strTemp & vbCrLf a.MoveNext Wend TEXTNAME.Text = strTemp Else MsgBox "空!!!" End If a.Close Set a = Nothing End Sub