Private Sub Set_Gaf2CodeCombo(cboName As ComboBox, _
                              sValue As String)
 
    Dim dbfile As String
    Dim sSQL As String
    Dim Db As Database
    Dim rs As Recordset
    Dim iCountRecordsets As Integer
    Dim sCode As String
    Dim iCounter As Integer
    Dim iIndex4Set As Integer
 
    dbfile = GetKonvertDB4GAF
    iIndex4Set = -1
    iCounter = -1
 
    If dbfile = "" Then
        With cboName
            .Enabled = False
            .Clear
        End With
        Exit Sub
    End If
 
    'Felddeklaration für die DB-Verknüpfung
    Set Db = Workspaces(0).OpenDatabase(dbfile, False, False)
 
    'SQL-Ausdruck
    sSQL = "SELECT * FROM " & GLOBAL_GAF_DB_Tbl_MCode & " ORDER BY Code;"
    Set rs = Db.OpenRecordset(sSQL, dbOpenDynaset)
 
    'Anzahl der gefundenen Recordsets
    iCountRecordsets = rs.RecordCount
 
    With cboName
        If iCountRecordsets = 0 Then
            .Enabled = False
            .Clear
        Else
            .Enabled = True
            .Clear
 
            While Not rs.EOF
                sCode = nz(rs("Code"), "")
                If Len(sCode) > 0 Then
                    .AddItem sCode
                    iCounter = iCounter + 1
                    If sCode = sValue Then
                        iIndex4Set = iCounter
                    End If
 
                End If
                rs.MoveNext
            Wend
 
        End If
 
        If iIndex4Set = -1 Then
            .ListIndex = 0
        Else
            .ListIndex = iIndex4Set
        End If
 
    End With
 
    'Datenbank schließen
    rs.Close
    Db.Close
    Set rs = Nothing
    Set Db = Nothing
 
End Sub

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD