B4J Question Inserting Records in Access database takes too long.

   dim fc As FileChooser
   dim sql as SQL
    fc.Initialize
    fc.Title="Select File" 'title of the dialog box
    fc.setExtensionFilter("MDB file", Array As String("*.mdb"))
    myfname=fc.ShowOpen(RemoteResultform) 'myfname contains the full path
    sql.Initialize("net.ucanaccess.jdbc.UcanaccessDriver", "jdbc:ucanaccess://" & myfname.Trim & ";memory=false")

For k=0 To paylist.Size -1
       
        Dim row(5) As Object
        res_map.Initialize
        res_map = paylist.Get(k)
           
        row(0)=res_map.Get("exam")
        row(1)=res_map.Get("schno")
        row(2)=res_map.Get("subject")
        row(3)=res_map.Get("max")
        row(4)=res_map.Get("mark")
   
        'inserting the data in Access database
           
        sql.ExecnonQuery2("INSERT INTO RemoteResult(exam,schno,subject,max,mark) Values(?,?,?,?,?)",Array As Object(row(0),row(1),row(2),row(3),row(4)))
        sql.ExecnonQuery("COMMIT;")
       
    Next
    lblmessage.Text="Done..."