Dim NombreDB As String = "X:\MisDatos\MiBaseAccess.mdb" ' ............. Tienes que dar el nombre de la DB y su camina (? es bien escribido ???)
Dim MaConnexion As New OleDbConnection
Dim MaCommande As New OleDbCommand
Dim MaxId As Integer
' ............. Tienes que elegir la ConnectionString
' MaConnexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & NombreDB & ";" ' Si Access antés 2007
' o
' MaConnexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.10.0;Data Source=" & NombreDB & ";" ' Si Access después 2007
' o .... ACE.OLEDB.10. puebe cambiar segun la version
MaConnexion.Open()
MaCommande = MaConnexion.CreateCommand()
MaCommande.CommandType = CommandType.Text
MaCommande.CommandText = "SELECT MAX(NombreDelIndicio) FROM NombreDeLaTabla" ' ............. Tienes que dar el nombre del campos y el nombre de la tabla
MaxId = MaCommande.ExecuteScalar()