各位大神，帮忙看看下面代码有什么问题，到do while 直接跳过，不执行drop语句

各位大神，帮忙看看下面代码有什么问题，到do while 直接跳过，不执行drop语句

----------------------------------------------------------------------------

Private Sub Command2_Click()


Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim strsql As String
Dim ssql As String
Dim tab_name As String
Dim p As String
sqlstr = "Select MsysObjects.name AS table_name FROM MsysObjects where (((MsysObjects.name) Like '*导入错误'))"
rs.Open sqlstr, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly


 Do While Not rs.EOF
 p = rs("tab_name")
 ssql = "drop table " & p
 rs.Open ssql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
 rs.MoveNext
 Loop
 rs.Close


End Sub