load workbook data to UserForm

[bolcskei]

I would like to load data to UserForm. I wrote the code, but I do not know where is the mistake.

Please help

Sub Show_HK()
 
UserForm2.KeepScrollBarsVisible = fmScrollBarsNone
UserForm2.ScrollBars = fmScrollBarsVertical
UserForm2.Spreadsheet1.Toolbar.Appearance = cc3D
 
Dim i As Long, j As Long, k As Long
 
k = Worksheets("$").range("D3").Value
    For i = 1 To k
        For j = 1 To 12
            UserForm2.Spreadsheet1.Cells(i, j).Value = Workbooks("C:\Documents and Settings\bolcskei\Dokumenty\FA\TV\HKA 2004 1.0.xls").Worksheet("HK2").Cells(i, j).Value
        Next j
    Next i
UserForm2.Show (vbModeless)
End Sub