I am using the Median Form/Code from Microsoft to get my Median stats. The Code Selects all the Tables from my Access DB which is ok, but I want it to select only tables that start with "Median".

How do I change this code to look at the Tables and only return those meeting "Median*"?

Private Sub Form_Load()
' Fill the list of tables.
Dim tdf As TableDef
cboTable.RowSourceType = "Value List"
For Each tdf In CurrentDb.TableDefs
If Not (tdf.Attributes And dbSystemObject) <> 0 Then
If Left$(tdf.Name, 4) <> "~tmp" Then
cboTable.AddItem tdf.Name
End If
End If
Next tdf
End Sub

Peter

which version of VB?