Public Function CleanTable(ByVal sDB As String, ByVal sTable As String, _
  Optional ByVal frmFLP As FlowLayoutPanel = Nothing) As Boolean
        Dim oleDA As OleDbDataAdapter
        Dim oleDT As DataTable = New DataTable()
        Dim oleDC As DataColumn
        Dim oleDR As DataRow
        Dim oleCN As OleDbConnection
        Dim oleCB As OleDbCommandBuilder
        Dim oleDType As String = ""
        Dim oleCount As Integer = 0
 
 
        oleCN = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User" & _
          "ID=Admin;Data Source=" & sDB)
 
        Try
            oleDA = New OleDbDataAdapter("select * from " & sTable, oleCN)
            oleCB = New OleDbCommandBuilder(oleDA)
 
            oleDA.Fill(oleDT)
 
            oleDA.UpdateCommand = oleCB.GetUpdateCommand
            oleDA.InsertCommand = oleCB.GetInsertCommand
            oleDA.DeleteCommand = oleCB.GetDeleteCommand
 
            For Each oleDC In oleDT.Columns
                oleDType = oleDC.DataType.ToString
                For Each oleDR In oleDT.Rows
                    If oleDR(oleDC) Is System.DBNull.Value Then
                        Select Case oleDType
                            Case "System.String"
                                oleDR(oleDC) = ""
                                oleCount += 1
                            Case "System.Int32"
                                oleDR(oleDC) = 0
                                oleCount += 1
                            Case "System.Decimal"
                                oleDR(oleDC) = 0
                                oleCount += 1
                            Case "System.Double"
                                oleDR(oleDC) = 0
                                oleCount += 1
                            Case "System.DateTime"
                                oleDR(oleDC) = Convert.ToDateTime("01.01.1900")
                                oleCount += 1
                            Case Else
                                Debug.Print(oleDType.ToString)
                        End Select
                    End If
                Next
            Next
 
            If Not oleDT.HasErrors Then
                Debug.Print(oleDA.UpdateCommand.CommandText.ToString & _
                  Environment.NewLine & oleCount.ToString)
                oleDA.Update(oleDT)
            Else
                MessageBox.Show("Error in DataTable" & " myCounter: " & _
                  oleCount.ToString)
            End If
 
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace)
            Return False
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace)
            Return False
        Finally
            If oleCN.State <> ConnectionState.Closed Then
                oleCN.Close()
                oleCN = Nothing
            End If
        End Try
 
        Return True
 
    End Function