vb+access查询问题，想要将查询内容显示在text中，但是不知道具体怎么写语法

Private Sub Command1_Click()
    Dim Rs As New Recordset
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\data.mdb"
    conn.Open 
    rs.open  "select 欠款时间 from 用户资料单 where 名称='" & Trim(Text1.Text) & "'",conn
    
    Text4.Text =rs.fields("欠款时间")
    rs.close
    rs.open "select 库存量 from 库存 where 零件代码='" & Trim(Text2.Text) & "'",conn
    Text5.Text = rs.fields("库存量")
    rs.close
    set rs=nothing
    conn.Close
    set conn=nothing
End Sub

conn.open 后面改写：
q= "select 欠款时间 from 用户资料单 where 名称='" & Trim(Text1.Text) & "'"
conn.Open q
text4.text=conn.Fields("欠款时间")
conn.close
q= "select 库存量 from 库存 where 零件代码='" & Trim(Text2.Text) & "'"
conn.Open q
text5.text=conn.Fields("库存量")
conn.close