VB編寫的登入區域網路內的sql2000資料庫伺服器代碼

'工程引用Microsoft SQLDMO Object Library
'Microsoft ActiveX Data Objects 2.8 Library
'定義一個連線物件..和記錄集對象
Public conn As New ADODB.Connection '串連的
Public recv As New ADODB.Recordset '用來接收資料的

Private Sub Nsqlser_DropDown()
     If Nsqlser.ListCount > 0 Then Exit Sub
     Dim Server As SQLDMO.NameList '名字列表namelist
     Dim appDMO As New SQLDMO.Application 'sqldmo應用
     Dim i As Integer
     Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表
     For i = 1 To Server.Count
     Nsqlser.AddItem Server(i) 'Nsqlser為下拉式清單方塊
     Next
End Sub

Private Sub Command1_Click()
'連線按鍵事件click()
Dim sql As String
Dim txtaddres As String
Dim txtuser As String
Dim txtpass As String
Dim msdb As String

txtaddres = Nsqlser.Text
txtuser = Text1.Text
txtpass = Text2.Text
msdb = Text3.Text

sql = "Provider=SQLOLEDB.1;Password=" & txtpass & ";Persist Security Info=True;User ID=" & txtuser & ";Initial Catalog=" & msdb & ";Data Source = " & txtaddres
'sql變數力存放的是連接字串....
conn.ConnectionString = sql '連接字串..
conn.open '串連
If conn.State = 0 Then
MsgBox "資料庫聯結失敗"
Else
MsgBox "資料庫聯結成功"
End If
conn.Close
Set conn = Nothing
End Sub