Visual Basic 6 - Ошибка: [MySQL] [ODBC 5.2 (ж) Driver] У вас есть ошибка в вашем 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 

меня корреляция ct output