Thanks for speedy response Paul; Still floundering here!
Errors in the SQL statement. (Lots I suspect!) Can you help?
Private Sub cmdTry_Click()
Text1 = fieldValue("tblLVR", "BusinessName", 8)
Exit Sub
Public Function fieldValue(tblName As String, fldName As String, passUserID As Long)
Dim...