Sub FillCbx(ByVal cbx As ComboBox)
        Dim _dt As DataTable
        Dim _da As OleDb.OleDbDataAdapter
        Try
            _dt = New DataTable
            _da = New OleDb.OleDbDataAdapter("SELECT Name FROM Table", _
              "DEIN_CONN_STRING")
            _da.Fill(_dt)
            cbx.Items.Clear()
            For Each r As DataRow In _dt.Rows
                cbx.Items.Add(r("Name"))
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            _dt.Dispose() : _dt = Nothing
            _da.Dispose() : _da = Nothing
        End Try
    End Sub