Dim verb As OleDb.OleDbConnection
        Dim pfad_db As String = Application.StartupPath & "\Pers.mdb"
        verb = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source='" & pfad_db & "';")
        Dim SQLStatement As String = "Select Count(*) FROM tabStraßen where" & _
        "Straße=?" & Me.StraßeComboBox.Text
        Dim RecordCount As Integer
        Dim cmd As New OleDb.OleDbCommand
        Try
            verb.Open()
 
            RecordCount = CInt(cmd.ExecuteScalar())
        Catch ex As Exception
            msg = "Straße ist nicht in der Datenbank vorhanden"
            style = MsgBoxStyle.DefaultButton2 Or _
               MsgBoxStyle.Information Or MsgBoxStyle.OkOnly
            title = "Neue Straße?"
            response = MsgBox(msg, style, title)
            If response = MsgBoxResult.Ok Then
                OrtComboBox.Focus()
                OrtComboBox.BackColor = Color.Aqua
                OrtComboBox.Enabled = True
                OrtsteilComboBox.Enabled = True
            End If
        Finally
            verb.Close()
        End Try