Dim SQLcon As New SqlConnection
        Dim SQLcmd As New SqlCommand
        Dim SQLread As SqlDataReader
 
 
        Try
            SQLcon.ConnectionString = My.Settings.DatenBankConnectionString
            SQLcmd.Connection = SQLcon
            SQLcmd.CommandText = "SELECT DISTINCT Betriebsauftrag.LASTUSER AS" & _
              "C3User, posUsers.C1UserID " & _
                "FROM         Ressource INNER JOIN " & _
                "Betriebsauftrag INNER JOIN " & _
                "Betriebsauftrag_det ON Betriebsauftrag.BETR_BNR =" & _
                "Betriebsauftrag_det.BETR_BNR " & _
                "ON Ressource.RessourceNr = Betriebsauftrag_det.RessourceNr" & _
                "INNER JOIN " & _
                "posUsers ON Betriebsauftrag.LASTUSER = posUsers.C1user " & _
                "GROUP BY Betriebsauftrag.TERMIN, Betriebsauftrag_det.ASArt," & _
                "Betriebsauftrag.LASTUSER, posUsers.C1UserID " & _
                "HAVING      (Betriebsauftrag_det.ASArt = 'Z') AND " & _
                "(Betriebsauftrag.TERMIN BETWEEN CAST(CAST(DATEPART(yy, GETDATE(" & _
                ")) - 1 AS char(4)) + '-1-1' AS datetime) AND " & _
                "CAST(CAST(DATEPART(yy, GETDATE()) + 1 AS char(4)) + '-31-12" & _
                "23:59:59' AS datetime)) " & _
                "ORDER BY posUsers.C1UserID"
 
            SQLcon.Open()
            SQLread = SQLcmd.ExecuteReader
 
            Do While SQLread.Read()
                mnuCmbUser.Items.Add(SQLread("C3User"))
            Loop
 
            SQLread.Close()
            SQLcon.Close()
        Catch ex As Exception
 
        End Try

            SQLcon.ConnectionString = My.Settings.DatenBankConnectionString
            SQLcmd.Connection = SQLcon
            SQLcmd.CommandText = "SELECT DISTINCT Betriebsauftrag.LASTUSER AS" & _
              "C3User...

SQLread = taQueries.MyQueriesName(@Parm1,@Parm2,@Parm3).ExecuteReader