Combobox won't populate, need help with current code.

Imports System.IO
Imports System.Data.SqlClient
Imports MyPDFActiveX

Public Class frmCPS
    Private Sub frmCPS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Focus()
        BringToFront()
        Show()
        Me.DoubleBuffered = True
        Dim cnStr As String
        cnStr = "Server=FMSERVER\EXTRAS;Database=eco;User ID=ForestGump;Password=Jenny"
        GVar.DBCon = New SqlConnection(cnStr)
        GVar.DBCon.Open()

        cbPartNum.Focus()
        If Not Directory.Exists(GVar.SourceFolder) Then Throw New Exception("Folder doesn't exist, OMG! What happened to our files")

        BuildDataTable()

        If Directory.Exists(GVar.DWFtf) = False Then Directory.CreateDirectory(GVar.DWFtf)
    End Sub

    Public Sub BuildDataTable()
        Try
            Dim extenions = New String() {".pdf"}
            Dim dirInfo = New System.IO.DirectoryInfo(GVar.SourceFolder)
            Dim files = dirInfo _
            .EnumerateFiles("*", System.IO.SearchOption.AllDirectories) _
            .Where(Function(f) extenions.Contains(f.Extension.ToLower))

            Dim _dtPDFfiles As New DataTable()
            _dtPDFfiles.Columns.Add("FullPath")
            _dtPDFfiles.Columns.Add("FileNameWe")

            If GVar.currentFilter <> "" Then
                For Each file In files
                    If file.Name.ToUpper Like GVar.currentFilter + "*" Then
                        Dim name = file.Name
                        Dim pos = name.IndexOf(".")
                        name = name.Substring(0, pos)
                        _dtPDFfiles.Rows.Add(New Object() {file.FullName, name})
                    End If
                Next
            End If
            With cbPartNum
                .DataSource = _dtPDFfiles
                .ValueMember = "FullPath"
                .DisplayMember = "FileNameWe"
                .DroppedDown = True
                .Update()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub cbPartNum_TextChanged(sender As Object, e As EventArgs) Handles cbPartNum.TextChanged
        Timer1.Interval = 5000 'ms
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        GVar.currentFilter = cbPartNum.Text
        BuildDataTable()
    End Sub

    Private Sub cbPartNum_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles cbPartNum.MouseDoubleClick
        'This Sub-Routine opens the selected file in the cbPartNum combobox when the mouse button is double clicked
        LoadThePDF()
    End Sub

    Private Sub cbPartNum_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbPartNum.KeyDown
        'This Sub-Routine opens the selected file in the cbPartNum combobox when the enter key is pressed down
        Dim theFile = cbPartNum.SelectedValue
        If e.KeyCode = Keys.Enter Then
            LoadThePDF()
        End If
    End Sub

    Private Sub cbPartNum_SelectedValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbPartNum.SelectedValueChanged
        Dim fp As DataRowView = cbPartNum.SelectedItem
        If cbPartNum.SelectedIndex <> -1 Then
            MessageBox.Show(fp.Row("FileNameWe"))  'this line of code is for testing purposes, delete before publishing finished application.
            cbPartNum.Text = (fp.Row("FileNameWe"))
        End If
    End Sub

    Private Sub LoadThePDF()
        'This Sub-Routine loads the pdf file in the pdf ActiveX control window, it also removes any pdf file in the temp folder before opening the file.
        'there is error control for not typing in the correct part number too, this stops the program from crashing when a non existing part number is typed in.
        My_PDF_AX1.OpenFile("", "")
        My_PDF_AX1.ShowNavigationPanels(True)
        My_PDF_AX1.ShowNavPanelByString("Pages")

        If (File.Exists(GVar.currentTempFile)) Then
            File.SetAttributes(GVar.currentTempFile, FileAttributes.Normal)
            File.Delete(GVar.currentTempFile)
        End If

        Dim theFile As String = cbPartNum.SelectedValue

        If theFile Is Nothing Then
            MessageBox.Show("ATTENTION " & GVar._UserName & ": You just FAT Fingered the part number try again", "ERROR: WRONG FILE NAME")
            cbPartNum.Focus()
            Exit Sub
        End If

        GVar.currentTempFile = Path.GetTempPath + Path.GetFileName(theFile)
        File.Copy(theFile, GVar.currentTempFile, True)

        My_PDF_AX1.OpenFile(GVar.currentTempFile, "")
        My_PDF_AX1.ShowNavigationPanels(True)
        My_PDF_AX1.ShowNavPanelByString("Pages")
        My_PDF_AX1.ZoomLevel = 1
        My_PDF_AX1.ShowToolBar(True)
        My_PDF_AX1.ShowTitleBar(False)

    End Sub

Select allOpen in new window