Runtime error 2580 - Record Source does not exist... (1 Viewer)

SELECT TOP 5 tblUsers_Phone_Book.EMAIL_ADDRESS, weightedDL('me@mine.com',[EMAIL_ADDRESS]) AS Expr1

Private Sub Form_Load()
  Dim intPos As Integer
  Dim strControlName As String
  Dim strValue As String
  Dim sSQL As String

  If Len(Me.OpenArgs) > 0 Then
    ' Position of the pipe
    intPos = InStr(Me.OpenArgs, "|")
    If intPos > 0 Then
      ' Retrieve Control Name from the first part of the string
      strControlName = Left$(Me.OpenArgs, intPos - 1)
      ' Retrieve Value to Assign from the end of the string
      strValue = Mid$(Me.OpenArgs, intPos + 1)
      ' Assign the value to the control
    End If
  End If

  sSQL = "SELECT TOP 5 tblPriv_Users_Phone_Book.EMAIL_ADDRESS, weightedDL('" & strValue & "',[EMAIL_ADDRESS]) AS Expr1"
  With Me.Form
        .RecordSource = sSQL
        .Refresh
  End With

End Sub