求段vb6.0插数据到access的代码

Question

RTDim conn As New ADODB.Connection
    '定义记录集
    Dim rs As New ADODB.Recordset
    Dim SqlStr As String
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "insert into tbl_feedback(a,b,c) values('a','b','c')"这是段看的别人模仿而来 后面怎么写不会鸟。
各路大神现身。

Answer 1

Dim conn As New ADODB.Connection
    '定义记录集
    'Dim rs As New ADODB.Recordset
    Dim SqlStr As String
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "insert into tbl_feedback(a,b,c) values('a','b','c')"
    conn.execute SqlStr

Answer 2

http://download.csdn.net/source/1498324