VB6.0 ²éѯAccess±íµÄ³ÌÐò³öÏÖµÄÎÊÌâ

Dim ywsl As Integer
Dim sql_bltj As String, sql_zhywtj As String, zh As String
Dim i As Integer, v As Variant, j As Integer, n As Integer
Dim MC As String, iMC() As Integer, sMC() As String
ReDim iMC(ywsl) As Integer, sMC(ywsl) As String

    rsywmc.Open "Select * from Table3", cnn
    If Not rsywmc.EOF Or Not rsywmc.BOF Then
        rsywmc.MoveFirst
        ywsl = -1
        Do While Not rsywmc.EOF
        ywsl = ywsl + 1
        rsywmc.MoveNext
        Loop
    End If
  rsywmc.Close 

rszhywtj.Open "select * from TABLE1", cnn, adOpenKeyset, adLockReadOnly
        For i = 0 To ywsl
            On Error Resume Next
            sMC(i) = rszhywtj.Fields(i + 1).Name
        Next i
       
  rszhywtj.Close
   
    sql_bltj = "SELECT *  from TABLE2"
    cnn.Execute ("delete from TABLE1")
         
    rsbltj.Open sql_bltj, cnn, adOpenKeyset, adLockOptimistic