大家帮帮我吧，建立数据源?

Dim   sDriver   As   String   
          Dim   sAttr       As   String   
          sDriver   =   "SQL   Server"   
          sAttr   =   "SERVER=LP"   &   Chr$(0)   'SQl服务器的名字 LP
          sAttr   =   sAttr   &   "DSN="   & "TSXT"  &   Chr$(0)   '想建个TSXT数据源
          sAttr   =   sAttr   &   "DATABASE=ICPDB"   &   Chr$(0)   
          sAttr   =   sAttr   &   "Trusted_Connection=Yes"   &   Chr$(0)   'NT连接方式
          msgbox  ( SQLConfigDataSource(0&,   ODBC_ADD_DSN,   sDriver,   sAttr)   )
大家给我一个可以运行的代码吧，我都疯了，在网上找了很多资料者不好使,谁有一个好使用例子给我也行，再是如何使用SQL方式连接即输入user=sa  password=。