Dim cmd As new SQLCommandcmd.Ccmd.CommandText = “se lect 列1,列2,列3 from{表A}”
Dim tb As Table = Tables(e.Form.Name & "_Table1")tb.DataSource = cmd.ExecuteReader
你这样本来就不会出现其它列