Da = New OleDb.OleDbDataAdapter("SELECT cggrpcco||lpad(cgsubcco,2,"0") as subcc,cgdescos FROM cgcencos " & _
" WHERE (cggrpcco = 2) " & _
" AND (cgsubcco > 0) " & _
" ORDER BY cgsubcco", Con.cnn)
Da.Fill(Ds1, "cgcencos")
Me.cmd_subcentro.DataSource = Ds1.Tables("cgcencos")
Me.cmd_subcentro.DisplayMember = "cgdescos"
Me.cmd_subcentro.ValueMember = "subcc"