Maybe this:
Code:
If tabControl.Value = 0 Then 'page 1
'Clear listTable listbox selections
Dim varItem As Variant
If listTable.MultiSelect = 0 Then
listTable = Null
Else
For Each varItem In listTable.ItemsSelected
listTable.Selected(varItem) = False
Next
End If
listdata.RowSource = ""
Else 'page 2
'listTable.Selected(0) = True 'select first item
Call listTable_Click 'trigger code
listTable.Selected(0) = True ' Must select first item again because code de-selects first item
End If
End Sub
Private Sub listTable_Click()
Select Case listTable.Column(0, 1)
Case "Manufacturer":
listdata.RowSourceType = "Table/Query"
listdata.RowSource = "SELECT * From Table1;"
listdata.Requery
Case "Type":
listdata.RowSourceType = "Table/Query"
listdata.RowSource = "SELECT * From Table2;"
listdata.Requery
End Select
End Sub