Public Sub GetData1(ByVal InstForm1)
        Dim myDataRelation1 As DataRelation
        myDataRelation1 = New DataRelation _
        ("Termin", ds.Tables("termin").Columns("td_k_id"),  _
        ds.Tables("firma").Columns("kd_id"))
        ds.Relations.Add(myDataRelation1)
        masterBindingSource.DataSource = ds
        masterBindingSource.DataMember = "termin"
        detailsBindingSource.DataSource = masterBindingSource
        detailsBindingSource.DataMember = "firma"
        Form1.dgv_aktuell_todo.DataSource = masterBindingSource
        Form1.dgv_aktuell_firma.DataSource = detailsBindingSource
    End Sub