combobox แสดงข้อมูลจาก accecc 2007 ยังไงครับ ลองทำแล้วไม่ขึ้นสักทีครับ

 Private Sub CallDataDepartments()
        '---------------------(เรียกข้อมูลจาก Table Provinces มาแสดงใน Combobox)
         Dim sqlDepartments As String

        ' Code ติดต่อกับฐานข้อมูล Accress 2007
        'strConn = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
         '        "Data Source=..\\Computer_CheckcoseEmployees.accdb;Persist Security Info=False"

        ' Code ติดต่อกับฐานข้อมูล Accress 2003
        'Dim conStr As String = _
        'strConn = "provider=Microsoft.Jet.oleDb.4.0;" & _
        '        "Data Source=..\\Computer_CheckcoseEmployees.mdb"

        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()

        sqlDepartments = "SELECT Departments_ID,Departments_Name FROM Departments" --->(เปลี่ยน databaseตรงนี้นะ)
        da = New OleDbDataAdapter(sqlDepartments, Conn)
        da.Fill(dc)
        With CmbDepartment
            .DataSource = dc
            .DisplayMember = dc.Columns.Item("Departments_Name").ColumnName  'ตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dc.Columns.Item("Departments_ID").ColumnName 'รหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub