Denisse Perez
29 de Marzo del 2004

Sub cbolist()
Conexion

Dim rcs2 As ADODB.Recordset
Dim SQL2 As String

Set rcs2 = New ADODB.Recordset
'txtPoliza = DataGrid1.Columns(n).Text
SQL2 = "SELECT cod_servicio, descrip_servicio FROM servicios where especial='No' "
rcs2.Open SQL2, dbcas2, adOpenDynamic, adLockOptimistic, adCmdText
i = 0
descrip_servicio = grilla.Columns(3).Text
Do While Not rcs2.EOF
List1.AddItem (rcs2("descrip_servicio"))

rcs2.MoveNext
Loop
'DtGrilla.Refresh
'lujo
grilla.Refresh

grilla.Columns(ColIndexList1).Button = True
grilla.MarqueeStyle = dbgHighlightCell




End Sub