[Null]

كود :

Dim cnn As New SqlConnection("Data Source=.\SQLEXPRESS;Integrated Security=True;User Instance=True")
Dim da As New SqlDataAdapter("SELECT name FROM master.dbo.sysdatabases WHERE dbid>6",cnn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.DataSource=dt
ComboBox1.DisplayMember="name"