combox控件列表下面的内容按字母顺序排列如何？

Question

Private Sub UserForm_Initialize()
Dim endrow As Integer
Dim i As Integer
Dim str As String
endrow = Sheet1.Range("b65536").End(xlUp).Row
With Sheet1
For i = 2 To endrow
  str = Sheet1.Range("b" & i)
  ComboBoxgoods.AddItem str
Next
End With
End Subcombox控件列表下添加的是sheet1中的第b列的内容，即客户名字。。
1）现在我想让combox列表中的下面的这些客户名字能够按字母顺序排列，这个如何实现啊？我现在显示的是根据sheet1表中B列的内容依次显示出来的。
2）或者另外一种思路：现在combox中有二个以d开头的客户，分别是dig,deathcat,目前这两个是一个在最上面，一个在最下面。我想让当我在combox控件中输入一客户名字时,例如:deathcat，当我一输入d时，显示的是最上面的deathcat，但在列表中会把那个dig也紧挨着deathcat出现，即说让以d打头的优先出现在下面的列表中？目的只有一个，如何方便使用者选择相应客户名字？先谢过老大。

Answer 1

在写SQL语句读入的时候使用order by拿pubs数据库的customers来讲select * from customers order by Contactname   这样读出的recordset就是被按字母排列过的，再直接读进combox就OK