Fejl i et modul efter skrift til Access 2007

Hej

Jeg har brugt dette modul i en database som var lavet i 2003 og der virkede det fint, men vi har skriftet til 2007 og nu får jeg fejl i det, modullet ser sådan her ud:

Public Function fhpHentFra() As String

On Error GoTo Error_fhpHentFra
  Dim result As String
  Dim rst As New ADODB.Recordset

  strSQL = "SELECT * FROM Fra"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic

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

  rst.Close
  Set rst = Nothing

Exit_fhpHentFra:
  fhpHentFra = result
  Exit Function

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

End Function

Det er i denne linie jeg får fejl i:
Dim rst As New ADODB.Recordset

Nogen som har en ide ??

/lars