Citar
'LLENAS DE REGSITRO AL DATACOMBO DE TIPO DE PROCESOS
DBTipProc.ListField = "destipproc"
DBTipProc.BoundColumn = "codtipproc"
Set RstTablaP = New ADODB.Recordset
Set RstTablaP = GExecSQL_Rst("SELECT codtipproc,destipproc From tipproc Order By destipproc")
Set DBTipProc.RowSource = RstTablaP
'TERMINO
DBTipProc.ListField = "destipproc"
DBTipProc.BoundColumn = "codtipproc"
Set RstTablaP = New ADODB.Recordset
Set RstTablaP = GExecSQL_Rst("SELECT codtipproc,destipproc From tipproc Order By destipproc")
Set DBTipProc.RowSource = RstTablaP
'TERMINO