arance      =   0  'Flat
          BackColor       =   &H00000000&
          BorderStyle     =   1  'Fixed Single
          BeginProperty Font 
             Name            =   "黑体"
             Size            =   15
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00008000&
          Height          =   450
          Left            =   3465
          TabIndex        =   6
          Top             =   255
          Width           =   3540
       End
    End
    Attribute VB_Name = "Main_Ypwh"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Dim rs As New ADODB.Recordset
    Private Sub Form_Load()
      Combo1.AddItem ("药品编码")
      Combo1.AddItem ("品名")
      Combo1.AddItem ("剂型")
      Combo1.AddItem ("自费类型")
      Combo1.AddItem ("类别")
      Combo1.AddItem ("生产企业")[b