Public Sub RefMenuBar()
 
 
Dim ix As Integer
 
Set adorsMenu = New ADODB.Recordset
 
 
              adorsMenu.ActiveConnection = FomWerkstatt.cnStam
              adorsMenu.Source = "SELECT IDLieferSt, Name, PreisDat " & _
                        "From LieferDa " & _
                        "Where TIS=1"
              adorsMenu.CursorLocation = adUseClient
              adorsMenu.CursorType = adOpenKeyset
              adorsMenu.LockType = adLockOptimistic
              adorsMenu.Open
 
 
        If Not adorsMenu.EOF = True Then
               adorsMenu.MoveFirst
 
           For ix = 1 To adorsMenu.RecordCount
               MenuBar1.MenuItems.Add adorsMenu.Fields("Name").Value & IIf(Not _
                 IsNull(adorsMenu.Fields("PreisDat").Value) = True, " Akt. " & _
                 adorsMenu.Fields("PreisDat").Value, ""), adorsMenu.Fields( _
                 "IDLieferSt").Value, MnuTis
               adorsMenu.MoveNext
           Next ix
        End If
 
 
           If Not adorsMenu Is Nothing Then
              adorsMenu.Close
              Set adorsMenu = Nothing
           End If
 
 
End Sub