Private Sub Command1_Click() If Option1 Then Text1.SetFocus

Set rs = New ADODB.Recordset Set conn = New ADODB.Connection conn.ConnectionString = "Driver={sql server};server=LIUMIAO;uid=sa;pwd=;database=vbsql" conn.ConnectionTimeout = 30 conn.Open SQL = "select * from newcard where sname='" & Trim(Text1.Text) & "'" Set rs = conn.Execute(SQL) 'rs.Open "select * from newcard where sname='" & Trim(Text1.Text) & "'" If rs.EOF = False Then Print Else MsgBox "该用户不存在！" End If End If Set rs = Nothing conn.Close End Sub 我没有使用任何控件,想显示查询结果. 运行时没报错,也没什么反应 该怎么显示出来呢?谢谢大家帮忙!

If rs.EOF = False Then
Print

你什么也没输出，所以没什么反应。

我就是这里的问题,那该怎么改啊?谢谢拉

你可以用rs的Fields属性。例如：print rs.Fields(0).values      //打印第一个字段的值，以此类推。

Print rs.Fields(0).Values
Print rs.Fields(1).Values
Print rs.Fields(2).Values
Print rs.Fields(3).Values
Print rs.Fields(4).Values
Print rs.Fields(5).Values
Print rs.Fields(6).Values
Print rs.Fields(7).Values
我是这样改的,提示"对象不支持该属性或方法"

各位大虾帮个忙把!小妹先谢过了