object required

I am getting an error saying object required. I know it has to do with the database connection. Here is the code

common.inc

Sub OpenDB()
'Using DSN, MySQL
 Set DbConn = Server.CreateObject("ADODB.Connection")
DbConn.Open "dataconn", "username", "password"
End Sub

read_article.asp

Call OpenDB()
Set rs = DbConn.Execute("Select articleurl,articlehead From Articles")

<% Do until rs.EOF%> 'This line is the error

How should I write the connection string?

Dim DbConn is outside of the sub opendb() I just didn't enter the whole file.

The error is saying I am trying to open a recordset without a database connection. I can't remember the way the sql statement and connection is supposed to be written. Tell me if this is right.

sql="Select * From Articles;"

Set rs = Dbconn.Open, sql