发布于 2010-09-13 21:12:00
3楼
Dim strSQL
Dim rsTable
Dim TableName
TableName = "MyTable"
strSQL = "Select * From " & TableName
Set rsTable = CreateObject("ADODB.Recordset")
Set rsTable.ActiveConnection = MyConn
With rsTable
.CursorLocation = 3
.CursorType = 2
.LockType = 3
.Source = strSQL
.Open
End With
无论成与败,无论甜与苦,我还是我。