[Solved] Simple VBA Select Query


Here is one way to do it:

 sSQL = "SELECT Variable FROM GroupTable " 
 Set rs = CurrentDb.OpenRecordset(sSQL)
 On Error GoTo resultsetError 
 dbValue = rs!Variable
 MsgBox dbValue, vbOKOnly, "RS VALUE"
resultsetError:
 MsgBox "Error Retrieving value from database",VbOkOnly,"Database Error"

solved Simple VBA Select Query