QueryPM = "SELECT * FROM " & DBTableName & " WHERE ID = 3"
Dim QueryPMMap As Map
QueryPMMap.Initialize
QueryPMMap = DBUtils.ExecuteMap(SQL1, QueryPM, Null)
If QueryPMMap = Null Then
lblspSelectPrimer.Text = "N/A"
Else
lblspSelectPrimer.Text = QueryPMMap.Get("primerMedicament")
End If