miron respondió:
Te expongo un ejemplo, lo combine para que valga la pena, espero te sirva: Option Explicit Private Sub MSFlexGrid1_Click() End Sub Private Sub Command1_Click() Dim cnFox As ADODB.Connection, cnExcel As ADODB.Connection Dim rsFox As ADODB.Recordset,...