窗口中放一个表控件。
Dim cmd As New SQLCommandcmd.CommandText = "Select * From {表A}"Tables("窗口1_Table1").DataSource = cmd.ExecuteReader