Dim CONN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim query as String
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db.mdb;Jet OLEDB:Database Password=pentahari;"
query="select *,IIf([AllergyType]=""Drug

Dim CONN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db.mdb;Jet OLEDB:Database Password=pentahari;"

Function GetUSBSerialNo(ByVal DriveLetter As String)
    Dim PnPID As String
    PnPID = USBSerialNo(DriveLetter)
    
    If Not Trim(PnPID) = "" Then
        GetUSBSerialNo = formatSerialNo(PnPID)
    Else
        GetUSBSerialNo = ""
   End If
   
End Function


Function USBSerialNo(ByVal DriveLetter As

MsgBox "Are you sure?", vbYesNo

If Session("UserName") Is Nothing Then
    Response.Redirect("../login/login.aspx")
End If