'lleno con tabla Origen
Set rsOstX = New ADODB.Recordset
rsOstX.CursorLocation = adUseClient
rsOstX.CursorType = adOpenDynamic
rsOstX.LockType = adLockBatchOptimistic
SQL = "select * from origen"
rsOstX.Open SQL, CN
Set DataGrid1.DataSource = rsOstX