Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\cs\sjk.mdb;”
con.Open
con.Execute “INSERT INTO b1 (id, name,age) VALUES (‘6’, ‘fuhui’,6)”
rs.Open “select * from b1”, con
While Not rs.EOF
Print rs.Fields(“id”) & ” ” & rs.Fields(“name”)
rs.MoveNext
Wend
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing