VB连接sqlserver数据库

Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim str As StringDim strServer As Stringd