同一段sql代码，为什么在sql视图中运行有结果，在vba中结果为空

已经搞定，自己研究了一天多，不容易。最关键的还是早上买的《access2013宝典》到了，突破了关窍。

Private Sub Command2_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE 告警详表.* FROM 告警详表;"
DoCmd.RunSQL "DELETE 工单综合查询报表.* FROM 工单综合查询报表;"
DoCmd.RunSQL "DELETE systab_info.Name FROM systab_info;"
DoCmd.RunSQL "INSERT INTO systab_info ( Name ) " _
             & "SELECT MsysObjects.Name " _
             & "FROM MsysObjects " _
             & "WHERE (((MsysObjects.Name) Like '*错误*'));"
             
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim dsql As String
Dim stabname As String
Set rs = New ADODB.Recordset
'rs.ActiveConnection = CurrentProject.Connection
'rs.CursorType = adOpenDynamic
sqlstr = "Select systab_info.name AS tab_name  FROM systab_info;"

rs.Open sqlstr, CurrentProject.Connection, adOpenDynamic

Do While Not rs.EOF
   stabname = rs.Fields(0)
   dsql = "drop table [" & stabname & "];"
   DoCmd.RunSQL dsql
   rs.MoveNext
Loop

rs.Close
Set rs = Nothing

MsgBox "数据已清空"

End Sub