一个查询的小问题

Question

Private Sub WtrMdlComb_Change(index As Integer)
    Dim gdid_1 As Integer, gdid_2 As Integer, gdid_3 As Integer, gdid_4 As Integer    If WtrMdlComb(0).Text <> "" Then
    Call OpenConn
    rs.Open sql = "Select * From goods_mdl Where goods_name='" & WtrMdlComb(0).Text & "'", cn, 1, 1
        If rs.RecordCount > 0 Then gdid_1 = rs.Fields("goods_id")
    Call CloseConn
    End If
End Sub说明
数据库：ACCESS
goods_id字段是整形，goods_name是文本
查询时总是提示参数不正确，如果把rs.Fields("goods_id")改为rs.Fields(goods_id)，又提示变量未定义，请高手指点一下

Answer 1

rs.Open sql = "Select * From goods_mdl Where goods_name='" & WtrMdlComb(0).Text & "'", cn, 1, 1改一下看看
rs.Open "Select * From goods_mdl Where goods_name='" & WtrMdlComb(0).Text & "'", cn, 1, 1

Answer 2

真是郁闷得很，明明已经有语句了还+个SQL干什么，我这脑袋真是有问题。不过分没白给，谢谢，你很热心啊。