Hi,
Try to include the sort in your SELECT statment like this :

.Open "SELECT * FROM Customer ORDER BY CustID",cnn1,adOpenKeyset,adLockOptimistic

Hope this help
Rgrds


>I tried to sort the Recordset but it doesn't display correctly.
>Anything when wrong with my codes as follows:
>
>Set rsCustLookup = New ADODB.Recordset
>With rsCustLookup
> .CursorLocation = adUseClient
> .Open "SELECT * FROM Customer",cnn1,adOpenKeyset,adLockOptimistic
> .Sort = CustID
> .Requery
>End With
>
>Set dcCustIDList.RowSource = rsCustLookup
>dcCustIDList.ListField = "CustID"
>dcCustIDList.Refresh