Private Sub dtgArtemis_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtgArtemis.CellClick
Dim naam, voornaam, gemeente As String
If cboTabel.SelectedIndex = 0 Then
naam = dtgArtemis.CurrentRow.Cells.Item("familienaam").Value
voornaam = dtgArtemis.CurrentRow.Cells.Item("voornaam").Value
gemeente = dtgArtemis.CurrentRow.Cells.Item("gemeente").Value
txtGegevens.Text = voornaam & " " & naam & " uit " & gemeente
ElseIf cboTabel.SelectedIndex = 1 Then
naam = dtgArtemis.CurrentRow.Cells.Item("naam").Value
gemeente = dtgArtemis.CurrentRow.Cells.Item("gemeente").Value
txtGegevens.Text = naam & " uit " & gemeente
ElseIf cboTabel.SelectedIndex = 2 Then
naam = dtgArtemis.CurrentRow.Cells.Item("firmanaam").Value
gemeente = dtgArtemis.CurrentRow.Cells.Item("stad").Value
txtGegevens.Text = naam & " uit " & gemeente
End If
End Sub