VB中操作SQL的一个小疑点

VB中操作SQL的一个小问题
有一窗体（一个TEXT，一个COMMAND，一个DATAGIRD）
我想用TEXT的内容确定要查询的表。然后在DATAGIRD里面显示出来，怎么实现呢？
比如说我在TEXT里面输入‘选修课表’，按了COMMAND之后，就在DATAGIRD里面显示出‘选修课表’的记录。


------解决方案--------------------
來了。
Dim Rs As New ADODB.Recordset
Dim strCon As New ADODB.Connection
Dim strSQL as string
Dim SQL as string
Private Sub Common_Click()
rs.CursorLocation = adUseClient
StrSQL= "Provider=SQLOLEDB.1;Persist Security Info=True;User;Password=****;Data Source=服务器名或者IP;Initial Catalog=数据库名 "
Strcon.open StrSQL
Rs.open "Select * from ' " & text1.text & " ' order by ID ",strcon,adOpenKeyset, adLockOptimistic
Set dataGrid1.datasource=Rs
strcon.Close
set strCOn=nothing
Rs.close
set rs=nothing

End Sub

------解决方案--------------------
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from " & Text1.Text & " order by 日期 ", cn, 3, 2
Set DataGrid1.DataSource = rs '把记录显示到DataGrid1里
Exit Sub
err:
MsgBox err.Description
End Sub

Private Sub Form_Load()
'连接到数据源，定义ADO的Connection对象
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名或者IP;Uid=sa;pwd=;database=数据库名; "
cn.CursorLocation = adUseClient
cn.Open

'定义ADO的RECORDSET对象


End Sub