Creating List in VB6 from SQL

Creating a dynamic list in vb6 using data from Database. a) Add components from the Components window. b) Add Available References. c) Create a sub filllistview() d) Add connection to object cn e) open connection. f) Add SQL query to a string variable. g) Fetch data h) Add data to list items CODE:-