A couple of problems here.

First, VBScript variables are variants. This means VBScript doesn't care if you put an integer, a string or whatever in there. So, doing:

Code:
Dim DB As Database
will return an error. Instead, you would do:

Code:
Dim DB, RS
You should also have a reference to the adovbs file by downloading it from:

ADOVBS Article

Lastly, you are missing quite a bit, such as your sql statement, your database, etc. To learn how to read in data from a database, go to:

Connecting To DB

There are also 2 links from here to other good articles.

HTH.