Public Function A2XADODFirst_V2( _
       psField1 As String, _
       psField2 As String, _
       psDomain As String, _
       Optional psDbs _
       As String = vbNullString, _
       Optional psCriteria _
       As String = vbNullString) _
       As Variant

Private Function GetKoordWork(ByVal sPunktCode As String, _
                              ByVal lngCurrentID As Long, _
                              ByVal sName_R As String, _
                              ByVal sName_H As String, _
                              ByVal sTable As String) As Variant

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de