Dim areader As OleDbDataReader


objConn.Open()
strsql = "select max(nrprog) from registro
Dim objCommand2 As New OleDbCommand(strsql, objConn)
areader = objCommand2.ExecuteReader()
IF (areader.Read())
Try
L22.Text = (areader.GetInt32(0))
Catch ex As Exception

End Try

End IF
objConn.Close()