vb中，如何在access数据库的表里增加一个字段

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strConn 'strConn是事先定义好的一个数据库连接字符串
rs.Open "select * from 公司资料", cn, adOpenStatic, adLockPessimistic '公司资料是表的名称
rs.AddNew '添加新记录命令.
rs("公司名称") = Text1.Text
rs("电话") = Text2.Text
rs("电话1") = Text3.Text
rs("传真") = Text4.Text
rs("传真1") = Text5.Text
rs("地址") = Text6.Text
rs("版本") = Text7.Text
rs.Update '数据库更新
rs.Close
cn.Close
MsgBox "添加新记录完成!", vbInformation, "系统提示"

DoCmd.RunSQL "insert into 表名(字段名) 字段类型，字段大小"