Protected Sub DataTableCurrMonthForWorker(ByVal ccMifal, ByVal ccWorkerID, ByVal theYear, ByVal theMonth)
        Dim totInsert As Integer
        Dim currDay As Integer = 1
        Dim theDate As Date
        Dim ds As New DataSet("dsClockCard")
        Dim dt As New DataTable("ClockCard")
        Dim dc As DataColumn
        Dim dr As DataRow
        ds.Tables.Add(dt)
        dc = New DataColumn("Mifal", GetType(Integer), ccMifal)
        dt.Columns.Add(dc)
        dc = New DataColumn("WorkerID", GetType(Integer), ccWorkerID)
        dt.Columns.Add(dc)
        dc = New DataColumn("ccYear", GetType(Integer), theYear)
        dt.Columns.Add(dc)
        dc = New DataColumn("ccMonth", GetType(Integer), theMonth)
        dt.Columns.Add(dc)
        dc = New DataColumn("ccDay", GetType(Integer))
        dt.Columns.Add(dc)
        dc = New DataColumn("ccSubDay", GetType(Integer), 1)
        dt.Columns.Add(dc)
        dc = New DataColumn("ccDate", GetType(Date))
        dt.Columns.Add(dc)
        If IsDate(theMonth & "/" & 20 & "/" & theYear) Then
            While IsDate(theMonth & "/" & currDay & "/" & theYear)
                theDate = theMonth & "/" & currDay & "/" & theYear
                dr = dt.NewRow
                dr.BeginEdit()
                dr(4) = currDay
                dr(6) = theDate
                dt.Rows.Add(dr)
                dr.EndEdit()
                currDay = currDay + 1
            End While
        Else
            While IsDate(currDay & "/" & theMonth & "/" & theYear)
                theDate = theMonth & "/" & currDay & "/" & theYear
                dr = dt.NewRow
                dr.BeginEdit()
                dr(4) = currDay
                dr(6) = theDate
                dt.Rows.Add(dr)
                dr.EndEdit()
                currDay = currDay + 1
            End While
        End If
        DALayer.fnUpdateDataBaseFromDataSet(ds)
    End Sub

    Dim accessConn As New OleDbConnection
    Dim accessDa As OleDbDataAdapter
    Dim accessCmd As OleDbCommand

    Public Function fnUpdateDataBaseFromDataSet(ByVal ds As DataSet)
            Try
                If accessConn.State = ConnectionState.Open Then
                    accessDa = New OleDbDataAdapter(accessCmd)
                    accessCmd = New OleDbCommand("INSERT INTO  ClockCard ([Mifal], " & _
                                                [WorkerID], [ccYear], " & _
                                                "[ccMonth], [ccDay], " & _
                                                "[ccSubDay], [ccDate]) " & _
                                                "VALUES (@Mifal, @WorkerID, @ccYear, @ccMonth, " & _
                                                "@ccDay, @ccSubDay, @ccDate)", accessConn)
                    accessDa.InsertCommand = accessCmd
                     accessDa.Update(ds.Tables(0))                    accessConn.Close()
                    accessDa.Dispose()
                    Return True
          end if
            Catch ex As Exception
                Current.Response.Write("exception from fnUpdateDataBaseFromDataSet: " & ex.Message & "<br>")
            Finally
                If accessConn.State = ConnectionState.Open Then
                    accessConn.Close()
                    accessDa.Dispose()
                End If
            End Try

 
INSERT INTO  ClockCard ([Mifal], " & _
                                                [WorkerID], [ccYear], " & _
                                                "[ccMonth], [ccDay], " & _
                                                "[ccSubDay], [ccDate]) " & _
                                                "VALUES 
(@Mifal, @WorkerID, @ccYear, @ccMonth,  "@ccDay, @ccSubDay, @ccDate)", accessConn)