'cast InfoObject into a Universe
Dim universe As BusinessObjects.Enterprise.Desktop.Universe = CType(universeInfoObject, Universe)

With universe
'clear all data connections
.DataConnections.Clear()

'add new data connection
.DataConnections.Add()

'save to repository
.Save()
End With

Dim targetInfoObject As InfoObject = infoStore.Query("SELECT SI_ID, SI_NAME, SI_FILES FROM CI_INFOOBJECTS WHERE SI_ID=" & targetId)(1)

'get the desired file from FRS
Dim sourceFile As File = sourceInfoObject.Files(1)

'create buffer and size appropriately
Dim buffer As Byte() = new Byte(sourceFile.Size) {}

'copy file to buffer
sourceFile.CopyTo(buffer)

'get the target file from the FRS, using the same index as the source
Dim targetFile As File = targetInfoObject.Files(sourceFile.NthFile)

'copy buffer to target file
targetFile.Overwrite(buffer)