Comboboxe og Database

Ja lav en sub under den event som hedder on drop down...  som henter data fra din database. som f.eks.


On Error GoTo ERRORHANDLER  \' Enable error-handling routine.
Dim value As String \'
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
\'  Step 1
conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & App.Path & \"\\database2000.mdb\"
\' Step 2

Set cmd.ActiveConnection = conn
cmd.CommandText = \"SELECT SYSTEM_CODE FROM T_HOG_DRAWINGS group by SYSTEM_CODE \"

\' Step 3
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenForwardOnly, adLockReadOnly
\' Step 4
\'rs!au_lname.Properties(\"Optimize\") = True


value = cmbSYSTEM_CODE.Text
cmbSYSTEM_CODE.Clear
While Not rs.EOF
   
    cmbSYSTEM_CODE.AddItem rs![SYSTEM_CODE] & \"\"

    rs.MoveNext

Wend
cmbSYSTEM_CODE.Text = value
rs.Close
cmd.ActiveConnection.Close
GoTo exit_sub


ERRORHANDLER:  \' Error-handling routine.
 
  MsgBox Err.Description
 
  \'Resume  \' Resume execution at same line
            \' that caused the error.

exit_sub:

Det jeg vil have den til at gøre er at når jeg vælger et emne i comboboxen skal den skrive i 2 labeler hvad der står i tabellen under emnet i databasen

Ligemeget har selv fundet ud af det