lotusscript连接数据库

dim con as varaint

dim strConSQL as string

dim strQueSQL as string

dim rs as varaint

set con = CreateObject("ADODB.connection")

strConSQL = "Provider=sqloledb;Data Source=192.168.0.12/IMDB;Initial Catalog='IM',use id=sa;password=xxx"

con.Open strConSQL

set rs = CreateObject("ADO.Recordset")

strQueSQL = "select * from users where id='432233444'"

set rs = con.Execute(strQueSQL)

Msgbox rs.Field(0).value

set rs = nothing

set con = nothing