Private Sub Form_Load()
On Error Resume Next
    With cbo_Test
        Set .Recordset = CurrentDb.OpenRecordset("SELECT [ID],[Court], [City]" & _
          "FROM Declaration ORDER BY [Court]")
        .Columns(1).Visible = False
        .Columns(2).Width = 5000
        .DisplayColumn = 2
    End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de