รบกวนสอบถาม Error นี้หน่อยครับ มีรูปประกอบ ใช้ฐานข้อมูล Access 2007

Public Shared OleDb As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Windows.Forms.Application.StartupPath & "\Database\Stock.accdb"

Private Sub FrmStock_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        _Stock.ShowCombo("DepName", "DepCode", "Department", ComboDep) ' combobox ชื่อเบอร์มีด

 End Sub


  Public Function ShowCombo(ByVal ShowItem As String, ByVal ShowID As String, ByVal Table As String, ByVal combo As ComboBox) ' As ComboBox
        Dim dr As OleDbDataReader
        'Dim da As OleDbDataAdapter
        Dim cmd As New OleDbCommand
        Dim sb As StringBuilder
        Dim ds As New DataSet
        Dim isfind As Boolean = False
        Dim dtInitial As DataTable
        Dim sql As String = ""
        Dim Cnt As String = "" 'Connect Database

        With conn
            If conn.State = ConnectionState.Open Then conn.Close()
            Conn.ConnectionString = OleDb
            conn.Open()

        End With
        sb = New StringBuilder()
        sb.Append("SELECT * FROM " & Table & " Order By Department.[No] ")
        Dim sqlIni As String
        sqlIni = sb.ToString()


        cmd = New OleDbCommand()
        With cmd
            .CommandText = sb.ToString
            .CommandType = CommandType.Text
            .Connection = Conn
            dr = .ExecuteReader()
            If dr.HasRows Then
                dtInitial = New DataTable()
                dtInitial.Load(dr)
                With combo
                    .BeginUpdate()
                    .DisplayMember = ShowItem
                    .ValueMember = ShowID
                    .DataSource = dtInitial
                    .EndUpdate()
                End With
            End If
        End With

        Return (combo)
        'dr.Close()

    End Function