vb怎样与SQL相连

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

DIM CON AS ADODB.CONNECTION

SET CON=NEW ADODB.CONNECTION

CON.ConnectionString = "driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
CON.Open