我现在这样定义的!
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 中的内容怎么办呢!