Hello!

I have this code:

Dim j, i As Integer
Dim dbs As Database
Dim tbl_name As Recordset
Set dbs = CurrentDb

For i = 0 To cboCol.ListCoun t - 1
cboCol.RemoveIt em s
Next i
'dbs.TableDefs( cboTable.Value) .Fields(i).Name
For j = 0 To dbs.TableDefs(c boTable.Value). Fields.Count - 1
With cboCol
.AddItem dbs.TableDefs(c boTable.Value). Fields(j).Name...