Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path &
&";\database\tax.mdb;Persist Security Info=False")
con.Execute (;insert into newuser values(&
No comments:
Post a Comment