Dim myResult As Result ' Oggetto in cui incamero i dati della ricerca fatta sul db
Dim strSql As String = "SELECT * FROM TABELLA" ' Stringa che compone la ricerca da effettuare
Dim i As Integer 'Variabile intera a cui assegnare il valore/i ricevuti dal db

myResult = myConnection.Exec(strSql) ' eseguo la ricerca sul db tramite l'oggetto myConnection 

if myResult.Available  Then ' verifico che il db abbia restituito almeno un risultato
  i=myResult!nome_colonna ' assegno il valore recuperato dal db alla variabile
Endif