combobox ดึงข้อมูลจาก access ไม่ได้ครับขอความช่วยเหลือด้วยครับผม VB 2010

Imports System.Data.OleDb
Imports System.Data
Public Class Form2
    Dim dt As New DataTable
    Dim da As OleDbDataAdapter

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

    End Sub

    Private Sub CallDataDepartments()
        Dim conn As New OleDbConnection
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.ConnectionString = ConnectDB
        conn.Open()



        Dim sql1 As String = "SELECT MemberID,FullName FROM Member" ' where username = '" & Form1.txtloginname.Text & "'"
        Dim da As New OleDbDataAdapter(sql1, conn)
        Dim dt As New DataTable

        da.Fill(dt)

        With cmbdepartment
            .DataSource = dt
            .DisplayMember = dt.Columns.Item("FullName").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dt.Columns.Item("MemberID").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub

    Private Sub CallDatauser()
        Dim conn As New OleDbConnection
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.ConnectionString = ConnectDB
        conn.Open()
        Dim sql2 As String = "SELECT   BookTypeCode,BookTypeName FROM BookType"
        Dim da As New OleDbDataAdapter(sql2, conn)
        Dim dt As New DataTable

        da.Fill(dt)

        With cmbuser
            .DataSource = dt
            .DisplayMember = dt.Columns.Item("BookTypeName").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dt.Columns.Item("BookTypeCode").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub

End Class