如何在VB中用SQL语句动态的增加字段.

alter table add column

sql = "Insert Into 表名("
If Text1.Text <> "" Then sql = sql & "字段1,"
If Text2.Text <> "" Then sql = sql & "字段2,"
If Text3.Text <> "" Then sql = sql & "字段3)"
sql = sql & ") Values("
If Text1.Text <> "" Then sql = sql & Text1.Text
If Text2.Text <> "" Then sql = sql & Text2.Text
If Text3.Text <> "" Then sql = sql & Text3.Text
sql = sql & ")"
这里，要求字段3为必填，例如使用时间

text是从窗体接收到数据后，才填加到对应的字段中，如果没有接收到某个字段信息的时候，就不添加相应的字段，
另：这是一条插入语句，但是，他也代表更新，删除的语句，其形式都是一样的，
不知道你希望得到那种语句的信息