秦时明月最新sf:vb中的数据库操作

请高手帮我分析一下以下的代码:
Dim strTableString As String, i As Integer, j As Integer, strFileName As String

Dim pubConn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rsTable As New ADODB.Recordset
Dim rs As Recordset
Dim strConn As String
Dim strSQL As String

strConn = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=False;User ID=sa;Initial Catalog=stuinfo;Data Source=."
pubConn.Open strConn
cmd.ActiveConnection = pubConn
strSQL = "USE Practice select * from money"
cmd.CommandText = strSQL
rsTable.CursorLocation = adUseClient

rsTable.Open cmd, , adOpenStatic, adLockBatchOptimistic

j = rsTable.Fields.Count
For i = 0 To j - 1
strTableString = strTableString & rsTable.Fields(i).Name & Chr(9) '获取字段名
Next
strTableString = strTableString & rsTable.GetString '字段名+数据库的记录

___下面代码省略

但是,当我运行的时候,就会提示错误产生,如下:
Run-time error '3704':
对象关闭时，不允许操作.

我不知道该怎么去修改,请高手指点一二,不胜感激,多谢!!!