首先打开数据源，然后使用alter table语句即可，具体范例如下：
德城网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作，到程序开发，运营维护。创新互联于2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" 数据库路径及文件名 ""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly
dim s() as string
For Each fm1 In Panel1.Controls
dim i=0
if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then
s(i)=fm1.text
i+=1
End If
Next
vb.netexcel给range赋值的方法如下：
Range是对象类型，对象的赋值要加一个Set,，例如您需要的语句可以这样写：
Set M = Range("A1:I1")
这样赋值以后，M才Range类型，例如可以使用 M.Count 属性，或者 M.ClearContents 方法
如果不写Set，那么会把Range的值赋与变量（数组类型）。
