Dim datamore As OdbcDataAdapter = New OdbcDataAdapter(" select unique eab14,eab02,ima06,ima01,eab15,eab17,max(eab05) as eab05" & _
" from eab_file, sfb_file, ima_file where eab02 = '" & str1 & "' and eab14 = '" & str2.ToString("dd-MM-yyyy") & "'" & _
" and sfb01=eab15 and sfb05=ima01 GROUP BY 1,2,3,4,5,6,7 ORDER BY 5 DESC", Conn1)
Dim datamore As OdbcDataAdapter = New OdbcDataAdapter(" select unique eab14,eab02,ima06,ima01,eab15,eab17,eab06,eab07,eab08,eab09,eab10,max(eab05) as eab05" & _
" from eab_file, sfb_file, ima_file where eab02 = '" & str1 & "' and eab14 = '" & str2.ToString("dd-MM-yyyy") & "'" & _
" and sfb01=eab15 and sfb05=ima01 GROUP BY 1,2,3,4,5,6,7 ORDER BY 5 DESC", Conn1)