mysql - Visual Basic 6 - 错误 : [MySQL][ODBC 5. 2(w) 驱动程序] SQL 语法中有错误

Question

我在第 24 行收到错误。我知道我的语法是正确的并且 ADO 控件已正确连接，但我仍然收到错误 sql 语法不正确。为什么会出现这种情况？

[MySQL][ODBC 5.2(w) Driver] You have an error in your SQL syntax

代码--

Private Sub cmdReserve_Click()
If txtAdvance < 500 Then
MsgBox "Room Advance Should Be Above 500"
txtAdvance.Text = ""
Exit Sub
End If
lblTotal.Caption = Val(txtDays.Text) * Val(txtRcharge.Text)
lblBalance.Caption = Val(lblTotal.Caption) - Val(txtAdvance.Text)
If (txtRstatus = "AVAILABLE") Then
s1 = txtRNo.Text
AdoReserved_rooms.Refresh
AdoReserved_rooms.Recordset.AddNew
AdoReserved_rooms.Recordset("ROOM_NO") = txtRNo.Text
AdoReserved_rooms.Recordset("CUSTOMER_ID") = txtCid.Text
AdoReserved_rooms.Recordset("ROOM_TYPE") = cboRType.Text
AdoReserved_rooms.Recordset("ROOM_STATUS") = "OCCUPIED"
AdoReserved_rooms.Recordset("CHECK_IN_DATE") = txtCindate.Text
AdoReserved_rooms.Recordset("CHECK_OUT_DATE") = txtCoutdate.Text
AdoReserved_rooms.Recordset("NO_OF_DAYS") = Val(txtDays.Text)
AdoReserved_rooms.Recordset("NO_OF_PEOPLE") = Val(txtPpl.Text)
AdoReserved_rooms.Recordset("ADVANCE") = Val(txtAdvance.Text)
AdoReserved_rooms.Recordset("TOTAL_AMOUNT") = lblTotal.Caption
AdoReserved_rooms.Recordset("BALANCE_AMOUNT") = lblBalance.Caption
**AdoRooms.RecordSource = "select * from `rooms` where ROOM_NO= '" + s1 + "'"**
AdoRooms.Refresh
AdoRooms.Recordset("ROOM_STATUS") = "OCCUPIED"
AdoRooms.Recordset.Update
AdoReserved_rooms.Recordset.Update
End If
MsgBox "ROOM RESERVED"
cmdReserve.Enabled = False
cmdNext.Visible = True
End Sub

Answer 1

我之前已将 AdoRooms 控件设置为具有以下属性

CommandType adcmdTable
Table rooms

当我将其更改为

CommandType adcmdText
Query select * from rooms

我得到了正确的输出