我要连接sqlserver2000的数据库，请问如何直连，代码怎么写，我是新手才学，请大神们在写的时候写的简单详细点！！！
------解决思路----------------------
// Profile zg_project
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "数据库名"
SQLCA.LogPass = '密码'
SQLCA.ServerName = "IP地址"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
if sqlca.sqlcode = 0 then
//连接成功
messagebox('', '连接成功')
else
messagebox('连接失败', sqlca.sqlerrtext)
end if