Testing Mo

            Dim daSQL As New OleDbDataAdapter
            Dim dsDataSet As DataSet = New DataSet
            daSQL.SelectCommand = New OleDbCommand(ltRecKeys.SQLString, gcnOLEDBHIS)
            daSQL.Fill(dsDataSet, "LabSpecimen")
            daSQL.SelectCommand.Dispose()
            daSQL.Dispose()

            grdLabSpecimen.DataSource = dsDataSet.Tables("LabSpecimen").DefaultView
            grdLabSpecimen.DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw
            grdLabSpecimen.AutoSizeCols()
            grdLabSpecimen.BringToFront()
            grdLabSpecimen.Show()

    Public gsFilename As String = "File Name"
    Public gsFileSizeEng As String = "Size"
    Public gsFilePath As String = "Full Path"
    Public gsFileSizeNo As String = "File Size"
    Public gsCreationTime As String = "Creation Time"
    Public gsLastWriteTime As String = "Last Write Time"

        Me.Columns.Add(gsFilename, gsFilename)
        Me.Columns.Add(gsFileSizeEng, gsFileSizeEng)
        Me.Columns.Add(gsFilePath, gsFilePath)
        Me.Columns.Add(gsFileSizeNo, gsFileSizeNo)
        Me.Columns.Add(gsCreationTime, gsCreationTime)
        Me.Columns.Add(gsLastWriteTime, gsLastWriteTime)

Public Sub Search_function() Sub Search_function(ByVal psDirectory As String, ByVal psSearchKey As String)

        Try
            Dim liRow As Integer = 0
            Dim lFfileInfo As System.IO.FileInfo
            Dim lsFiles() As String = IO.Directory.GetFiles(psDirectory)
            For j As Integer = 0 To lsFiles.Length - 1
                If hhhCompareFunction1(lsFiles(j), psDirectory, psSearchKey) Then
                    Me.Rows.Add()

                    lFfileInfo = New System.IO.FileInfo(lsFiles(j))
                    Me.Item(gsFilename, liRow).Value = lFfileInfo.Name.ToString
                    Me.Item(gsFileSizeEng, liRow).Value = CType(lFfileInfo.Length / 1024, Integer).ToString & "KB"
                    Me.Item(gsFilePath, liRow).Value = lFfileInfo.FullName
                    Me.Item(gsFileSizeNo, liRow).Value = lFfileInfo.Length.ToString("N0")
                    Me.Item(gsCreationTime, liRow).Value = lFfileInfo.CreationTimeUtc.ToString
                    Me.Item(gsLastWriteTime, liRow).Value = lFfileInfo.LastWriteTimeUtc.ToString
                    liRow = liRow + 1

                End If
            Next

        Catch ex As ApplicationException

        End Try
    End Sub

    Public Function hhhCompareFunction1() Function hhhCompareFunction1(ByVal path As String, ByVal fileName As String, ByVal msSearchKey As String) As Boolean
        If path.ToLower.Contains(msSearchKey.ToLower) Or fileName.ToLower.Contains(msSearchKey.ToLower) Then
            Return True
        Else
            Return False
        End If
    End Function

       Dim oSQLConnection As SqlConnection = _
                            New SqlConnection("server=ITWS14\HioServer;" & _
                                              "database=Northwind;" & _
                                              "user id=sa;" & _
                                              "password=123456;")
        oSQLConnection.Open()

        Dim lsSQLString As String = "Select * From  customers"
        Dim oSqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(lsSQLString, oSQLConnection)
        Dim dsDataSet As DataSet = New DataSet()

        oSqlDataAdapter.Fill(dsDataSet, "Cust")

        gridDataBind.DataSource = dsDataSet.Tables("Cust").DefaultView
        gridDataBind.AutoResizeColumns()
        oSQLConnection.Close()