查询语句中怎么换成其它的表

Private Sub Command25_Click()

Dim TBAO                          '定义表名,但我不知道 Dim Tsq As 后写什么才是表名

Dim Tsql As String                '定义一个查询

Dim Str2 As Integer
Dim Str3 As Integer

TBAO = Me.Text1                   '表名从文本框更换取

'Tsql = "SELECT 部门余额.*FROM 部门余额"        原语句是这样,我要将表名换成 TBAO  的值

'Tsql = "SELECT 这是要换成TBAO的值.*FROM 这是要换成TBAO的值"

Tsql = "SELECT " & TBAO & ".*FROM " & TBAO

'Str2 = DLookup("ID", "部门余额", "账户名称 = '一分公司'")

Str2 = DLookup("ID", TBAO, "账户名称 = '一分公司'")
'Str3 = DLookup("ID", "部门余额", "账户名称 = '二分公司'")
Str3 = DLookup("ID", TBAO, "账户名称 = '二分公司'")

上语句中也要将"部门余额"  换成TBAO的值

'Tsql = Tsql & " WHERE(((部门余额.ID) >= " & Str2 & ")) And (((部门余额.ID) < " & Str3 & "))"
'上句是原来的,要将 部门余额.ID 换成 TBAO 值的ID

'Tsql = Tsql & " WHERE(((这是要换成TBAO的值.ID) >= " & Str2 & ")) And (((这是要换成TBAO的值.ID) < " & Str3 & "))"

Tsql = Tsql & " WHERE(((" & TBAO & ".ID) >= " & Str2 & ")) And (((" & TBAO & ".ID) < " & Str3 & "))"
Me.Form.RecordSource = Tsql

End Sub