Userform Listbox using an active sheet
 

I am having problems showing a database that I created. Every database
is named DB. I created a userform and I want the list box to show the
database from the active sheet. How do I write that formula in VB? If
someone could please help me it would be much appreciated

Sub SelectItemsActive()
UserForm1.ListBox1.RowSource = "=ActiveSheet!DB"
UserForm1.Show
End Sub