OLEDB acces vb.net

   Dim cnn As New _
            OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                      this.appDir & "\data\keuangan.mdb;Jet OLEDB:Database Password=ppp;")
 '   OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
         '             this.appDir & "\data\keuangan.mdb;Jet OLEDB:Database Password=ppp;")
       
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = cnn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "delete * from trx_spp where `nospp` = '" & e.Link.Split("|")(1) & "' and " & this.sFilter
            Using cnn
                cnn.open()
                cmd.ExecuteNonQuery()
                cnn.Close()
            End Using
=======================

               'Friend koneksi As New _
        '         Odbc.OdbcConnection("Driver={Microsoft Access Driver (*.mdb)};dbq=" & _
        '         this.appDir & "\data\keuangan.mdb;defaultdir=D:\;Uid=Admin;Pwd=-+--+;")
        'Friend koneksi As New _
        '            OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
        '                      this.appDir & "\data\keuangan.mdb;Jet OLEDB:Database Password=-+--;")
        Friend koneksi As New _
                   OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                             this.appDir & "\data\keuangan.mdb;Persist Security Info=False;Jet OLEDB:Database Password=-+;")