菜鸟急需高手帮助改一下这个代码

我是新手，想往一个数据库里面把一些联系资料写进去，报错了，大家帮助看一下这个该怎么改！

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件\VB98\登录\admin.mdb" '请输入实际路径及数据库的名字
Dim SQL As String
SQL = "Insert Into [Fields](机型,供应商名称,联系人,联系电话,手机,交货周期,付款方式,地址,价格,发票,备注) Values(机型Text1,供应商名称Text2,联系Text3,联系电话Text4,手机Text5,交货周期Text6,付款方式Text7,地址Text8,价格Text9,发票Text10,备注Text11)"
Conn.Execute SQL
End Sub
--------------------编程问答-------------------- SQL = "Insert Into [Fields](机型,供应商名称,联系人,联系电话,手机,交货周期,付款方式,地址,价格,发票,备注) Values(机型.Text1,供应商名称.Text2,联系.Text3,联系电话.Text4,手机.Text5,交货周期.Text6,付款方式.Text7,地址.Text8,价格.Text9,发票.Text10,备注.Text11)" --------------------编程问答-------------------- sql="insert into 表名(机型,供应商名称,联系人,联系电话,手机,交货周期,付款方式,地址,价格,发票,备注) values('所要插入字符')"  '多个在后面用逗号隔开，注意你那表中是否还有其它的字段，如有也要有插入就算是插入空的也要用NULL表示不然会出错
Conn.Execute SQL

我觉得直接用Rs.ADDNEW
Rs .UPDATE
更方便一些 --------------------编程问答-------------------- 谢谢！试出来了！

补充：VB ,  基础类