How to query by table by the beginning of the serial number

f359742154

Query the temp1 table when the serial number starts with R, and the temp2 table when it is T

If Combo1.Text = "" Then
MsgBox "The serial number cannot be empty", 6, "Hint"
Else
sql1 = "select * from temp1 where ID = '"&Combo1.Text&"'"
sql2 = "select * from temp2 where ID = '"&Combo1.Text&"'"

rs.Open ???, cn, 1, 3

If Not rs.EOF Then
..........

entwine

Dim strTable As String
   
    Select Case Left(Combo1.Text, 1)
        Case "R"
            strTable = "TEMP1"
        Case "T"
            strTable = "TEMP2"
        Case Else
            strTable = "TEMP3"
    End Select
   
    SQL = "select * from "&strTable&" where ID='"&Combo1.Text&"'"
    rs.Open SQL, cn, 1, 3