Kan ikke finde fejlen

Hej

Nogen som kan hjaelpe mig, jeg kan ikke f[ denne funktion til at virke i access 2007

Option Compare Database

Public Function AirListDesignator() As String
' -----------------------------------------------------------------------------------
' Purpose    :
' Parameters :
' Returns    : String
' Created    : 15-12-2010
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_AirListDesignator
  Dim result As String
  Dim rst As New ADODB.Recordset

  strSQL = "SELECT top 1 tbl_airlist_name.airdesignator FROM tbl_airlist_name"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic

  rst.MoveFirst
  While Not rst.EOF
    result = result & Nz(rst!airdesignator, "") & vbCrLf
   
   
    rst.MoveNext
  Wend

  rst.Close
  Set rst = Nothing

Exit_AirListDesignator:
  nclass = result
  Exit Function

Error_AirListDesignator:
  result = ""
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'AirListDesignator'"
  End Select
  Resume Exit_AirListDesignator
 
  End Function

Naar jeg kalder den i en tekstboks saadan her>

me.tekst19 = AirListDesignator()

kommer der ikke noget i tekstboksen