Listbox Capture From Other Workbook Excell VBA Userform

Private Sub UserForm_Initialize()

Dim database As Workbook, i As Long

Application.ScreenUpdating = False

Set database = Workbooks.Open(ThisWorkbook.Path & "/" & "Database.xlsm")

For i = 2 To Application.WorksheetFunction.CountA(Sheets("Sheet1").Range("A:A"))

Me.ListBox1.AddItem Sheets("Sheet1").Cells(i, 1).Value

Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Sheet1").Cells(i, 2).Value

Next i

ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub