Dim i As Integer
cmd.CommandText = "execute CKXP"
Dim dst1 As Table = Tables("窗口1_Table1")
dst1.DataSource = cmd.ExecuteReader()