[SIZE=2][COLOR=#0000ff]Try
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]With[/COLOR][/SIZE][SIZE=2] ListBox1
[/SIZE][SIZE=2][COLOR=#008000]'Clear the arryList Items.
[/COLOR][/SIZE][SIZE=2]arrListGetIndex.Clear()
[/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] i [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2] = 0 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] .Items.Count - 1
[/SIZE][SIZE=2][COLOR=#008000]'Get the Selected Indexes.
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] .GetSelected(i) [/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2]arrListGetIndex.Add(i)
[/SIZE][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] da [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] OleDb.OleDbDataAdapter
da = [/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] OleDbDataAdapter([/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE][SIZE=2], cnn)
[/SIZE][SIZE=2][COLOR=#008000]'Check if table existed and loaded, then clear it .
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] IsNotFirstTimeLoading [/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2]ds.Tables([/SIZE][SIZE=2][COLOR=#800000]"childTable"[/COLOR][/SIZE][SIZE=2]).Clear()
[/SIZE][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] i [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2] = 0 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] arrListGetIndex.Count - 1
[/SIZE][SIZE=2][COLOR=#008000]'Set the selected item depend on index.
[/COLOR][/SIZE][SIZE=2].SetSelected([/SIZE][SIZE=2][COLOR=#0000ff]CType[/COLOR][/SIZE][SIZE=2](arrListGetIndex(i), [/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2]), [/SIZE][SIZE=2][COLOR=#0000ff]True[/COLOR][/SIZE][SIZE=2])
[/SIZE][SIZE=2][COLOR=#008000]'Assign the query string.
[/COLOR][/SIZE][SIZE=2]da.SelectCommand.CommandText = _
[/SIZE][SIZE=2][COLOR=#800000]"SELECT Bekalh.TypeE, Asnaf.Senf1 FROM Bekalh "[/COLOR][/SIZE][SIZE=2] & _
[/SIZE][SIZE=2][COLOR=#800000]"INNER JOIN Asnaf ON Bekalh.ID = Asnaf.IDTypeE "[/COLOR][/SIZE][SIZE=2] & _
[/SIZE][SIZE=2][COLOR=#800000]"WHERE Asnaf.IDTypeE = "[/COLOR][/SIZE][SIZE=2] & .SelectedValue.ToString
[/SIZE][SIZE=2][COLOR=#008000]'fill data set.
[/COLOR][/SIZE][SIZE=2]da.Fill(ds, [/SIZE][SIZE=2][COLOR=#800000]"childTable"[/COLOR][/SIZE][SIZE=2])
[/SIZE][SIZE=2][COLOR=#008000]'Binding datagrid.
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].DataGrid1.DataSource = ds
[/SIZE][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].DataGrid1.DataMember = [/SIZE][SIZE=2][COLOR=#800000]"childTable"
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'Clear the Selection Items.
[/COLOR][/SIZE][SIZE=2].ClearSelected()
.SelectedIndex = -1
[/SIZE][SIZE=2][COLOR=#0000ff]Next
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'Assign true after the first time button click.
[/COLOR][/SIZE][SIZE=2]IsNotFirstTimeLoading = [/SIZE][SIZE=2][COLOR=#0000ff]True
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'If you want to keep selection on ListBox1
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'Uncomment these script.
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'For i As Integer = 0 To arrListGetIndex.Count - 1
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' .SetSelected(CType(arrListGetIndex(i), Integer), True)
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' .SetSelected(CType(arrListGetIndex(i), Integer), True)
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'Next
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]With
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'=========================
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'==========================
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Catch[/COLOR][/SIZE][SIZE=2] ex [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] Exception
MessageBox.Show(ex.Message)
[/SIZE][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Try
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub
[/COLOR][/SIZE]