Why Can't I Connect To SQLServer With An Incomplete Conn. String ?

I found out that I could use SQLDMO to enumerate objects in a SQL server. However, I can't connect to my server, even though I have both "windows and SQL server" authentication on "(local) Windows NT".





Here is the code (it does not contain the validation in this snippet):








Imports System.Data.SqlClient


Imports SQLDMO





Public Class ADO_2


Inherits System.Web.UI.Page


Protected WithEvents txtQuery As System.Web.UI.WebControls.TextBox


Protected WithEvents txtresults As System.Web.UI.WebControls.TextBox


Protected WithEvents lstDB As System.Web.UI.WebControls.DropDownList


Protected WithEvents lblResult As System.Web.UI.WebControls.Label


Protected WithEvents cmdExecute As System.Web.UI.WebControls.Button


Protected WithEvents cmdNext As System.Web.UI.WebControls.Button





Private m_objConn As New SqlConnection()


Private m_objSQLServer As SQLDMO.SQLServer





Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load





EnumerateDatabases()





'TEMP


lstDB.Items.Add("Northwind")


lstDB.Items.Add("Pubs")


'END TEMP


End Sub





Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload





m_objConn.Close() 'Just in case.....


End Sub








Private Sub cmdExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExecute.Click





Dim objCommand As SqlCommand


Dim objDataReader As SqlDataReader


Dim intField As Integer





txtresults.Text = String.Empty


m_objConn.ConnectionString = "server=radu;database=" & lstDB.SelectedItem.Text & ";integrated security=SSPI;"


m_objConn.Open()





objCommand = New SqlCommand(txtQuery.Text, m_objConn)


objDataReader = objCommand.ExecuteReader





While objDataReader.Read


txtresults.Text &= vbNewLine


For intField = 0 To objDataReader.FieldCount - 1


txtresults.Text &= objDataReader(intField).ToString.PadRight(15)


Next


End While





objDataReader.Close()


objDataReader = Nothing


objCommand = Nothing


m_objConn.Close()





End Sub





Private Sub EnumerateDatabases()





On Error GoTo EnumerateDatabasesError





Dim objSQLDatabase As SQLDMO.Database





m_objSQLServer = New SQLDMO.SQLServer()


m_objSQLServer.Connect("radu")





'Iterate through all databases on the target server:


For Each objSQLDatabase In m_objSQLServer.Databases


lstDB.Items.Add(objSQLDatabase.Name)


Next objSQLDatabase





EnumerateDatabasesExit:


objSQLDatabase = Nothing


m_objSQLServer.Close()


m_objSQLServer = Nothing


Exit Sub





EnumerateDatabasesError:


lblResult.Text = Err.Number.ToString & ", " & Err.Description


Resume EnumerateDatabasesExit


End Sub


End Class








Why can't I connect with m_objSQLServer.Connect("radu") ? I also tried m_objSQLServer.Connect("radu", "", ""). Otherwise, I can connect just fine with m_objConn.Open() (after I select a db from the dropdownlist, which is for now populated by hand)....





Thanks a lot for your time.





Alex.