Update Data In Sheet From Another Sheet

I have two workbooks. In Workbook1 (96300,Temp.xls) are stored the data as follows:
Item No; Model; Description; Pieces; Unit price; Price Total (Formula = Pieces x Unit Price).

I use this code to get all data from this workbook to another workbook:

Sub SelectAllItems()

'Open connection
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & "96300,Temp.xls;" & _
"Extended Properties=Excel 8.0"
Set cn = New ADODB.Connection
cn.Open strCn

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.Open "SELECT * FROM [súpis$]", cn, adOpenStatic, adLockOptimistic

i = 0
For j = 0 To rs.Fields.Count - 1
ActiveSheet. Range("A1").Offset(0, j) = rs.Fields(j).Name
Next
j = 0
Do Until rs.EOF
For j = 0 To rs.Fields.Count - 1
ActiveSheet.Range("A2").Offset(i, j) = rs.Fields(j).Value
Next
i = i + 1
.MoveNext
Loop
End With
End Sub ...