How about this to get you started:

[code]
'Read DSN Connection String.
constr = HMIRuntime.Tags("DBConnectionString").Read

'Set variables connections.
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

'Open connection.
con.Open(constr)

'If connection failed then print connection fail message and end sub.
If (con.State = 0) Then
HMIRuntime.Trace "DB Connection Failed"
Exit Sub
End If

'Open recordset and retrieve all needed info.
rs.Open "SELECT * FROM TableName, con,1

'Loop through entire result.
Do While (Not rs.EOF)
Value = rs.Fields(5)
...
loop

'Close connections
rs.close
con.close
[/code]

About this line:
[code]constr = HMIRuntime.Tags("DBConnectionString").Read[/code]

I stored the connection string in a Tag, but you should/could write it in plain text here.

Edit: As of wincc SP3 or sp4 the dbconnection string is automatically stored in an internal tag by wincc.

Good Luck,
With Regards,
Ikkezelf