Dim aid, u As String
        Dim sql, dbcomm, dbread
        dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("exp_imp.mdb")
        dbconn.Open()
        sql = "Select Top 1 audit_id from audit order by id desc"
        dbcomm = New System.Data.OleDb.OleDbCommand(sql, dbconn)
        dbread = dbcomm.ExecuteReader()
        While dbread.Read
            aid = dbread(0)
        End While

        sql = "Select * from export_import_sec1"
        dbcomm = New System.Data.OleDb.OleDbCommand(sql, dbconn)
      [color=#CC0000] dbread = dbcomm.ExecuteReader()
        While dbread.Read
          If dbread(0).audit_id=aid Then  u = dbread(0).ans_1
        End While
        label3.text = u[/color]

    Public Function GetOleDataReader(ByVal conStr As String, ByVal qryStr As String) As OleDbDataReader
        Dim oleCon As OleDbConnection = New OleDbConnection(conStr)
        oleCon.Open()
        Dim oleDbCmd As OleDbCommand = New OleDbCommand(qryStr, oleCon)

         Return oleDbCmd.ExecuteReader()
    End Function
    
    ...
    
    Dim aid As String
    Dim u As String
    
    Dim qryStr As String = "SELECT TOP 1 audit_id FROM audit ORDER BY id desc"
    Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "fileDirectory\FileName,mdb"
    
    Dim dbReader as OleDbDataReader = GetOleDataReader(conStr, qryStr)

    While dbReader.Read
       aid = dbReader(0)
    End While

    
    qryStr = "SELECT TOP 1 audit_id FROM audit ORDER BY id desc"
    dbReader = GetOleDataReader(conStr, qryStr)
    
    While dbReader.Read
      If dbReader(0).audit_id = aid Then  
        u = dbReader(0).ans_1
      End If    
    End While
    
    label3.text = u