我认为你那个用全局变量有问题的 我改成这样就可以:
Dim cmd As New SQLCommandcmd.Ccmd.CommandText = "SELECT * From {表A}" ' Where [_identify] Is Null"Tables("窗口1_Table1").datasource= cmd.ExecuteReader()