Dim sql As new SQLCommand
Dim dt As DataTable
sql.C
sql.CommandText = "S elect * From 业务记录
dt = sql.ExecuteReader(True)
然后把表加载到
Tables("plan_table1").DataSource = dt
dt = Tables("plan_table1").DataTable
dt.DataCols("姓名0").Caption = "作成者"
dt.DataCols("时间0").Caption = "作成时间"
dt.BuildHeader