'datenbank nach den verschiedenen ländern durchsuchen
        Dim sql As String = "SELECT Land FROM t_location"
        Dim cmd As New OleDbCommand(sql, conn)
        Dim da As New OleDbDataAdapter(cmd)
        conn.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        Do While (dr.Read())
            Dim temp As String = dr("Land")
            Dim count As Integer = Me.locationCountry.Items.Count
            If count > 0 Then
                'land nur eintragen, wenn es noch nicht vorhanden ist
                If temp <> Me.locationCountry.Items.Item(count - 1) Then
                    Me.locationCountry.Items.Add(temp)
                End If
            Else
                'erstes land der datenbank auf jeden fall eintragen
                Me.locationCountry.Items.Add(temp)
            End If
        Loop
        dr.Close()