Dim rowcount        As Integer
Dim listcount       As Integer
Dim listmax         As Integer
Dim ColMax          As Integer
Dim restCount       As Integer
Dim restMax         As Integer
Dim comboxCount     As Integer
Dim Output()        As String
Dim rest(0 To 2000) As String
 
 
 
AS400Connection
 
rs.Open "select * from " & Form1.txtBib.Text, cn, adOpenStatic, _
  adLockOptimistic, adCmdText
 
listmax = combox(0).listcount
ColMax = MSFlexGrid1.Rows - 2
 
ff = FreeFile
 
Open CommonDialog1.FileName For Input As #ff
 
If Not EOF(ff) Then
    Line Input #ff, data
        Output = Split(data, ";")
        rowcount = UBound(Output) + 1
        MSFlexGrid1.Rows = rowcount + 1
    Seek 1, 1
End If
 
Do While Not EOF(ff)
    Line Input #ff, data
    Output = Split(data, ";")
 
	rs.Open "select * from " & Form1.txtBib.Text, cn, adOpenStatic, _
  adLockOptimistic, adCmdText
  	cn.BeginTrans
 
	rs.addnew
 
	Do
    		Do Until comboxCount = ColMax + 1    
        		If combox(comboxCount).Text = combox(comboxCount).List(listcount)  _
          Then
                        	rs.Fields(listcount).Value = Output(comboxCount)          
       				comboxCount = comboxCount + 1
    		Loop
     	comboxCount = 0
    	listcount = listcount + 1
	Loop Until listcount = listmax
    rs.Update
    cn.CommitTrans
    rs.Close
Loop
Close #ff
End Sub