Dim dbSheet As Worksheet
Dim dbTable As ListObject
Set dbSheet = ThisWorkbook.Sheets("Form")
Set dbTable = ThisWorkbook.Sheets(ShtName).ListObjects(ShtName)
ActiveSheet.lstPrev.RowSource = dbTable.DataBodyRange.Address(External:=True)