Dim conn As SqlConnection
Dim comm As SqlCommand
Dim sqladapt As SqlDataAdapter
Dim ds As New DataSet()
Try
conn = New SqlConnection("Data Source=" & Me.txtservername.Text & ";Initial Catalog=master;user id=" & Me.txtusername.Text & ";password=" & Me.txtpassword.Text & "")
sqladapt = New SqlDataAdapter("select name from sysdatabases", conn)
sqladapt.Fill(ds, "sysdatabases")
Me.cmbDB.DataSource = ds.Tables("sysdatabases")
Me.cmbDB.DisplayMember = "name"
Catch ex As Exception
MsgBox(ex.Source & ex.Message)