fylde combobox med indhold fra tabell i access

vil gerne fylde datacomboboxen Compri med ting fra en tabel og derefter teste om indholdet er "Inorganic" hvis det er det skal den næste combobox vises.
-----------------------------------------------------------------

Private Sub ComPri_Change()

If ComPri.DataField = "Inorganic" Then
       
    ComIno.Visible = True
   
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()

ComIno.Visible = False
ComOrg.Visible = False
ComEne.Visible = False

' her sættes database  forbindelsen

Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset

Set MyConn = New ADODB.Connection


MyConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\manager\resourcer.mdb;"
MyConn.Open

'Set MyRecSet = MyConn.Execute("SELECT type FROM primaer")

'Do Until MyRecSet.EOF
   
'    Label2.Caption = Label2.Caption & MyRecSet.Fields.Item("type").Value & vbCrLf
'    MyRecSet.MoveNext
'Loop

'MyConn.Close
End Sub