Hallo,

vorab bin was Programmierung in VBA angeht Anfänger, steinigt mich bitte nicht :-)

Habe folgendes Programm geschrieben. In Form1 habe ich eine Combobox die ich per BindingSource mit einer Access Datenbank verbunden habe.

Die Datenbank besteht aus Firma als Primärschlüssen darauf folgt IP-Adresse, Subnetzmaske, Gateway und DNS.

In Form 2 befindet sich ein DataGridview mit bearbeitungsmöglichkeit der Datenbank.

Nun habe ich es soweit hinbekommen das wenn ich in Form zwei einen Eintrag in die Datenbank schreibe und zurück in Form 1 gehe, ich dann in der Combobox die Einträge drin habe (also den Primärschlüssel "Firma").

Nun zu meinem Problem. Ich möchte das wenn ich in der Combobox dann irgendeine Firma auswähle mir in der Textbox (auch Form1) die dazugehörige IP-Adresse ausgegeben wird. Bekomme es nicht gebacken, hab schon halb google durchsucht und probiert, wie gesagt mein wissen ist sehr schlecht. Habe mal C++ programmiert ist aber auch schon lage her....

Hier mal der Code zur Combobox

    Public myConnToAccess As OleDbConnection
    Dim mySQLCommand As OleDbCommand
    Dim mySQLStrg As String
    Dim ds As DataSet
    Dim da As OleDbDataAdapter
    Dim tables As DataTableCollection
    Dim reader As OleDbDataReader

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        myConnToAccess = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Kunden.accdb")
        myConnToAccess.Open()
        ds = New DataSet
        tables = ds.Tables
        da = New OleDbDataAdapter("SELECT Firma from Netzwerkeinstellungen", myConnToAccess)
        da.Fill(ds, "Netzwerkeinstellungen")
        Dim view1 As New DataView(tables(0))
        With ComboBox1
            .DataSource = KundenDataSet.Tables("Netzwerkeinstellungen")
            .DisplayMember = "Firma"
            .ValueMember = "Firma"
            .AutoCompleteMode = AutoCompleteMode.SuggestAppend
            .AutoCompleteSource = AutoCompleteSource.ListItems
        End With

Hoffe ihr könnt mir helfen :-)