参考:
http://www.foxtable.com/webhelp/topics/1909.htm
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "GetOrders" '指定存储过程名
cmd.StoredProcedure = True '表示CommandText内容不是标准的SQL语句,而是存储过程名
cmd.Parameters.Add("@客户","联想")
Dim dt As DataTable = cmd.ExecuteReader
Tables("窗口1_Table1").DataSource = dt