Dim index As Integer
SqlConnection = New SqlConnection("server=Localhost;Database=NorthWind;uid=sa")SqlConnection.Open()
SqlCommand = New SqlCommand("Select Name FROM dbo.sysobjects WHERE xtype = 'U'", SqlConnection)
SqlCommand.CommandType = CommandType.Text
SqlDataReader = SqlCommand.ExecuteReader()
While SqlDataReader.Read
ComboBox1.Items.Add(SqlDataReader.Item(0))
End While
SqlDataReader.Close()
SqlConnection.Close()