好象不是这样读的啊。。。。
偶是这样连的。。。
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.C
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 语句", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF = True Then
m = MsgBox("请重新登录", vbExclamation)
Else
Text1.text1= rs.Fields("字段名").Value
end If