Private Sub UserForm_Initialize()
Dim tem
Set tem = ID_CUSTOMLIST.ColumnHeaders.Add(1, "", "客户编码", 50)
Set tem = ID_CUSTOMLIST.ColumnHeaders.Add(2, "", "客户名称", 400)
Dim constr
constr = Config.Range("B1").Text
Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.Open (constr)
Dim comm
Set comm = CreateObject("ADODB.Command")
comm.ActiveConnection = conn
comm.CommandText = "SELECT COMPNO,COMPNAME FROM CUSTOMFILE"
Dim recset
Set recset = CreateObject("ADODB.Recordset")
recset.Open (comm)
Dim n
n = 1
Dim temre
If Not recset.EOF Then
recset.MoveFirst
Do While Not recset.EOF
Set temre = ID_CUSTOMLIST.ListItems.Add(n, "", recset!compno)
ID_CUSTOMLIST.ListItems.Item(n).SubItems(1) = recset!compname