Dates in the excel column

 Private Sub PopulateExcelInDatagrid(ByVal Filename As String)
        Dim oledbCon As OleDb.OleDbConnection
        Dim dt As New DataTable
        Try
            Dim csExcel As String = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & Filename & " '; " & "Extended Properties=Excel 8.0;")
            oledbCon = New OleDbConnection(csExcel)
            oledbCon.Open()
            dt = oledbCon.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
            oledbCon.Close()
            If dt.Rows.Count <= 0 Then Exit Sub
            Dim excelSheets As [String]() = New [String](dt.Rows.Count - 1) {}
            Dim row As DataRow = dt.Rows(0)
            oledbCon.Open()
            Dim oledbAdapter As New OleDbDataAdapter("select * from [" + row("TABLE_NAME").ToString() + "]", oledbCon)
            oledbCon.Close()
            Dim excelDataSet As New DataSet()
            oledbAdapter.Fill(excelDataSet, "Test")
            Dim excelTable As DataTable = excelDataSet.Tables("Test")
            Dgv.DataSource = excelTable
            With Dgv
                .MasterTemplate.BestFitColumns()
                .MasterTemplate.AutoSizeColumnsMode = GridViewAutoSizeColumnsMode.Fill
                If IsNothing(.DataSource) = False Then
                    For i = 0 To .Columns.Count - 1
                        .Columns(i).BestFit()
                    Next
                End If
                If IsNothing(.DataSource) = False Then
                    For i = 0 To .Columns.Count - 1
                        .Columns(i).HeaderText.Trim
                    Next
                    
                    .Columns(0).AutoSizeMode = BestFitColumnMode.DisplayedDataCells
                End If
            End With
    
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Select allOpen in new window