Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.Oledb
Imports System


 Dim objConn As OleDbConnection
 Dim qualeProvider As String = System.Configuration.ConfigurationManager.AppSettings("dbprovider")


   Public Function DammiMaxID(ByVal qualetabella As String, ByVal percdb As String) As Integer
        Dim risultato As Int32
        risultato = 0
        Dim TheCommand As OleDbCommand = Nothing
        Dim TheDataReader As OleDbDataReader = Nothing
		'apro la connessione con i dati relativi al mio database       
 		objConn = New OleDbConnection _
                          (qualeProvider & percdb)

		'seleziono l'id dell'ultimo record inserito
            Dim cmdString As String = "SELECT  TOP 1 ([PK_" & qualetabella & "]) as maxId FROM " & qualetabella & " order by PK_" & qualetabella & " desc"

            objConn.Open()


            TheCommand = New OleDbCommand(cmdString, objConn)

            TheCommand.CommandType = CommandType.Text

            TheDataReader = TheCommand.ExecuteReader()

            While TheDataReader.Read()

                risultato = TheDataReader("maxId")

            End While
            'libero le risorse utilizzate
		TheCommand.Dispose()
            TheDataReader.Dispose()
            objConn.Dispose()

       'restituisco il risultato della query, ovvero l'ultimo ID inserito
        Return risultato

    End Function
