Private Sub Command1_Click()
Dim con As Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[这里填写你的数据库路径];Persist Security Info=False"
con.open
con.execute("insert into tablename(属性[,属性2,属性3。。。]) values('" + text1.text + "'[,value2,value3...])")'里面是sql语句,问题没说明清楚,自己根据需要改动
End Sub
command_click事件为ADODC.record.addnew就可以了,往相应数据库字段写就可以了