如何按流水号的开头字来分表查询

f359742154

当流水号开头为R时查询temp1表,为T时查询temp2表

If Combo1.Text = "" Then
MsgBox "流水号不可为空", 6, "提示"
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