Programacion Visual Studio 2010, orientado a Asp.net con base de datos

[jota2016]

Tengo una base de datos en acces con  un inventario de computadores donde hay teclados, monitores, ext y por cada item tengo relacionado un consecutivo:  ejemplo
teclados: Tc-0001, Tc-0002...etc y  con los monitores es: MP-0001, MP-0002.. y así sucesivamente cada uno de los elementos, la idea es quiero buscar el ultimo codigo de los teclados  y poder continuar con el consecutivo. He intentado pero solo me da el ultimo de todos los listados que tengo.

El objetivo que a traves de un DownList1 me busque los monitores o teclados y traiga el ultimo de esa opcion para realizar el consecutivo

Gracias y este es el código.

****

Código: [Seleccionar]

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb
Public Class Prueba
    Inherits System.Web.UI.Page
    Dim obj As About
    Dim cadena, cadena1 As String, index As Integer, caracteres As Integer, numeros As String, num
    Dim adaptador As New OleDbDataAdapter("Select * From BDatos", cn)
    Dim conexion As New OleDbConnection

    Public cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\WebApplication1\WebApplication1\App_Data\BDatosinventario.accdb;Persist Security Info=True")
    Public ds As New DataSet
    Public fila, FILA2 As Integer

    Sub CONEXION1()
        ds.Clear()
        Dim adaptador As New OleDbDataAdapter("Select * From BDatos", cn)
        cn.Open()
        adaptador.Fill(ds, "BDatos")
        cn.Close()
    End Sub
    Sub ultimoregistro()
        Dim resultado_num As String = ""
        Dim query_num As String = "SELECT MAX(CODIGO) FROM BDatos"
        'where(DETALLE = " & DropDownList1.Text")
        Dim comando_num As OleDbCommand
        Dim lector_num As OleDbDataReader
        cn.Open()
        comando_num = New OleDbCommand(query_num, cn)
        lector_num = comando_num.ExecuteReader

        If lector_num.Read Then
            resultado_num = lector_num(0).ToString
        End If
        lector_num.Close()
        cn.Close()
        Text1.Text = resultado_num
        If Text1.Text = Nothing Then
            Text1.Text = 0
        End If

    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        index = 1
        num = 0

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        '  If Control Then

        'End If

        'If DropDownList1.Text = "detalle" Then
        ultimoregistro()



        '  ultimoregistro()
        'End If


    End Sub