vb数据库添加数据

① 如何用VB代码向数据库中添加数据表

'以下代码可以向当前数据库添加数据表
'(测试OK,添加"Table1"数据表，包含4个字段)：

Set NewTable = CurrentDb.CreateTableDef("Table1")
With NewTable
.Fields.Append .CreateField("字段1", dbText)
.Fields.Append .CreateField("字段2", dbText)
.Fields.Append .CreateField("字段3", dbText)
.Fields.Append .CreateField("字段4", dbText)
End With
CurrentDb.TableDefs.Append NewTable

② vb 中向数据库插入数据

可以用ADO空间+文本框捆绑数据设计

也可以用普通文本框设计界面，让用户录入信息；然后用代码实现写入：
1.建立ADODB的连接对象
2.连接数据库
3.打开连接对象
4.通过连接对象执行SQL语句（用Insert写入数据）
5.关闭对象。
希望对你能有所帮助。