cmd.Parameters.AddWithValue("@Straße", Me.StraßeComboBox.Text)
        verb.Open()
 
        Dim result As Integer = cmd.ExecuteScalar()
 
        Try
            If (1 = result) Then
 
            End If
            If (0 = result) Then
                msg = "Die Straße ist nicht in der Datenbank vorhanden!" & _
                  vbNewLine _
    & "Sie müssen alle Felder von Hand ausfüllen!"
                style = MsgBoxStyle.DefaultButton2 Or _
                   MsgBoxStyle.Information Or MsgBoxStyle.OkCancel
                title = "Neue Straße?"
            End If