Public Function CreateDataTable(ByVal tableName As String) As DataTable
        Dim RetVal As New DataTable(tableName)
        RetVal.Columns.Add("trans_num", System.Type.GetType("System.Int32"))
        RetVal.Columns.Add("trans_date", System.Type.GetType("System.DateTime"))
        RetVal.Columns.Add("acct", System.Type.GetType("System.String"))
        RetVal.Columns.Add("amount", System.Type.GetType("System.Double"))
        Return RetVal
    End Function

 
sql = "select trans_num, trans_date, acct, amount from " & table & " where" & _
  "trans_num > " & SQL_MAX 
 
DA_SQL = New OleDbDataAdapter(sql, Conn_Acc) 
Dim Dt as DataTable = CreateDataTable(table)
DA_SQL.AccepChangesDuringFill=false
DA_SQL.Fill(dt) 
 
DA_SQL = New OleDbDataAdapter(sql, Conn_Sql) 
CB_SQL = New OleDbCommandBuilder(DA_SQL) 
DA_SQL.Update( dt )