Sub App_Start Form1.Show Table1.LoadCSV("CSVFILE.csv" , "," ,False,True) For i = 0 To Table1.RowCount-1 combobox1.Add(table1.Cell("ColumnName",i)) NextEnd Sub