dispatch con = "ADODB.Connection"

      string sCon = "Driver={Microsoft Access Driver (*.mdb)};Dbq=plik_z_baza_Accessa.mdb"
      con.ConnectionString = sCon
      con.Open
dispatch rs = "ADODB.Recordset"

rs.Open ((using "INSERT INTO tabela  (wartosc1, wartsc2,wartosc3,wartosc4,wartosc5) VALUES ('%s', '%s',%l,%l,'%s')",sWartosc1 ,sWartosc2, iWartosc3, iWartosc4, sWartsc5),con,3)