Как заполнить combobox VB.NET из msaccess

---

Я не могу понять, почему он не дает мне выход. В описанной таблице есть данные, и даже набор данных заполняется, я видел это в режиме отладчика. Но элемент value и элемент display не заполняются. Я не могу понять почему.

Что я уже пробовал:

Private Sub frmItemEntry_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strSql As String
        strSql = "Select UID, UnitName from UnitofMeasurement"
        Try
            conn.Open()
            With com
                .CommandType = CommandType.Text
                .CommandText = strSql
                .Connection = conn
            End With
            adp.SelectCommand = com
            adp.Fill(ds)
            adp.Dispose()
            com.Dispose()
            conn.Close()
            With cmbUnitOfMeasure
                .DataSource = ds.Tables("UnitofMeasurement")
                .ValueMember = "UID"
                .DisplayMember = "UnitName"
            End With
            
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn.Close()
    End Sub

---