With cmd
            .CommandText = "SELECT tblInfo.*, tblInfoVerteiler.* " & _
                            " FROM tblInfo INNER JOIN tblInfoVerteiler ON" & _
                            "tblInfo.InfoID = tblInfoVerteiler.InfoID " & _
                            " WHERE (((tblInfoVerteiler.segID)='{" & segID & _
                            "}'));"
            .Connection = cnn
        End With
 
        With da
            .SelectCommand = cmd
            .Fill(ds, "Infos")
        End With

With cmd
            .CommandText = "SELECT tblInfo.*, tblInfoVerteiler.* " & _
                            " FROM tblInfo INNER JOIN tblInfoVerteiler ON" & _
                            "tblInfo.InfoID = tblInfoVerteiler.InfoID " & _
                            " WHERE (((tblInfoVerteiler.segID)='{" & segID & _
                            "}')  and ((tblInfoVerteiler.read) = false));"
            .Connection = cnn
        End With
 
        With da
            .SelectCommand = cmd
            .Fill(ds, "Infos")
        End With