Hier #funkruf#, wir haben die Einssatzstelle erreicht

Public Function funcSprechwunschgenerator(ByVal Status As Integer, ByVal _
  Funkruf As String) As String
 
  Dim Db As Database 
  Dim dbFile As String 
  Dim SQL As String 
  Dim rs As Recordset 
  Dim Tabellenname As String 
 
  Tabellenname = CStr(Status) 
  dbFile = App.Path + "Funk.mdb" 
  Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) 
 
  'Es muß noch auf die unterschiedlichen Größen der 
  'einzelnen Tabellen eingegangen werden 
  SQL = "SELECT * FROM " & Tabellenname & " WHERE Nr = 1" 
  Set rs = Db.OpenRecordset(SQL) 
  If rs.RecordCount > 0 Then 
    funcSprechwunschgenerator = Replace(rs("Funkspruch") , "#funkruf#", Funkruf)
  End If 
End Function