OLEDB acces vb.net

   Dim cnn As New _
            OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & _
                      this.appDir & "datakeuangan.mdbJet OLEDB:Database Password=ppp")
 '   OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0Data Source=" & _
         '             this.appDir & "datakeuangan.mdbJet 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 & "datakeuangan.mdbdefaultdir=D:Uid=AdminPwd=-+--+")
        'Friend koneksi As New _
        '            OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0Data Source=" & _
        '                      this.appDir & "datakeuangan.mdbJet OLEDB:Database Password=-+--")
        Friend koneksi As New _
                   OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & _
                             this.appDir & "datakeuangan.mdbPersist Security Info=FalseJet OLEDB:Database Password=-+")