这条语句不执行then 中的只执行else中的
Set myrs = New ADODB.Recordset
 Set myrs2 = New ADODB.Recordset
 sql = "Select * Into test_3 From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
 sql2 = "insert into test_3 select * From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
 sql3 = "select * from Msysobjects where name='test_3' "'判断数据库中是否有test_3表
 myrs2.Open sql3, cn, 0, 1
  If myrs2.RecordCount = 0 Then         myrs.Open sql, cn, 3, 4 '表不存在,执行此条语句
         MsgBox "表不存在,导入数据成功"
      Else
         myrs.Open sql2, cn, 3, 4 '表存在,执行此条语句
         MsgBox "表存在,插入数据成功"
  End If
  myrs2.Close