Dim a1, a2, a3, a4 As String
        While Enumerator.MoveNext()
            a1 = Enumerator.Current
            a1 = a1.Trim

            Enumerator.MoveNext()
            a2 = Enumerator.Current
            a2 = a2.Trim

            Enumerator.MoveNext()
            a3 = Enumerator.Current
            a3 = a3.Trim

            Enumerator.MoveNext()
            a4 = Enumerator.Current
            a4 = a4.Trim
        End While
        con.Open()
        Dim comm As New OleDb.OleDbCommand
        comm.Parameters.Add("@a1", a1)
        comm.Parameters.Add("@a2", a2)
        comm.Parameters.Add("@a3", a3)
        comm.Connection = con
        comm.CommandText = ("insert into fraud values(@a1,@a2,TO_Date( '09-01-2006 00:00:03', 'MM-DD-YYYY HH24:MI:SS'),@a3")
        comm.ExecuteNonQuery()
        con.Close()

  comm.CommandText = ("insert into fraud values('" + a1 + "','" + a2 + "',TO_Date('" + a3 + "', 'YYYY-MM-DD HH24:MI:SS'),'" + a4 + "')")