Private Sub Command1_Click()
    Dim sql As String
 
    string1 = Combo1.Text
    string2 = Combo2.Text
 
    If Combo1.ListIndex < 0 And Combo2.ListIndex < 0 Then
        MsgBox "Please Select Format & Field Name"
       [B] --> vom ComboBox wieder auswählen[/B]
        Else
            If Combo1.ListIndex < 0 And Combo2.ListIndex >= 0 Then
                MsgBox "Please Select a Format"
                [B] --> vom ComboBox wieder auswählen[/B]
                Else
                    If Combo1.ListIndex >= 0 And Combo2.ListIndex < 0 Then
                        rs.Open "SELECT Formats.Format, WHERE (Formats.Format =" & _
                          "'" & string1 & "')", Cn, adOpenDynamic, _
                          adLockBatchOptimistic
                        Else
                            If Combo1.ListIndex >= 0 And Combo2.ListIndex _
                              >= 0 Then
                                rs.Open "SELECT Formats.Format, WHERE (" & _
                                "Formats.Format = '" & string1 & "') AND (" & _
                                "CCN_fields.field_name ='" & string2 & "')", _
                                Cn, adOpenDynamic, adLockBatchOptimistic
                            End If
                    End If
            End If
    End If