access 窗体中按扭的sql查询语句问题，可能是哪里编错了，请高手看一下！

Dim strSQL1
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
strSQL1 = "Select sname from basic WHERE scode='sc001'"
Text1.Value = rs
你完全不需要这样写，有DAO组件吗？那是VB的，不是ACCESS，在ACCESS中直接给他数据源就可以了：
Private Sub chaxun_Click()
Me.RecordSource = "Select sname from basic WHERE scode='sc001'"
While Not Me.Recordset.EOF
Text1 = Me.RecordSet.Fields("字段名")
Wend
End Sub
这样写就行了，就是在VB中你用DAO也得要DAO 2.5 Larbry以上版本引用啊。ACCESS是有ADO控件，但DAO不支持。

最简单的方法用dlookup函数。

Private Sub chaxun_Click()
Text1.Value=Dlookup("[sname]","access","[scode]='sc001'")
End Sub

有个问题，你的表名是access还是basic？前面说“有个表，名叫access” ，后面又有写“from basic ”。