Attribute VB_Name = "Public"
'QQ:75347626
'MSN:whailin2000@hotmail.com
Option Explicit

Public Sub FillComboWithSql(mForm As Form, Combo As ComboBox, SqlString As String, Optional vFieldCode As String = "")
   Dim Frs As ADODB.Recordset
   Dim OldValue As String
   
   Combo.Clear
   
   Set Frs = Conn.Execute(SqlString)
   
   If Frs.EOF Then
      Exit Sub
   End If
   
   Frs.MoveFirst
   
   Do Until Frs.EOF
       Combo.AddItem Frs(0)
       If vFieldCode <> "" Then
         Combo.ItemData(Combo.ListCount - 1) = Frs(vFieldCode)
       End If
       Frs.MoveNext
   Loop
   
   Set Frs = Nothing


End Sub