سلام دوست عزیز
برای نشان دادن دیتا بیس های مستر و یا دیتابیس هایی که خود شما درست کردید میتونید از یکی از کدهای زیر استفاده کنید
exec sp_helpdb
select * from master.sys.databases
برای مثال
com.CommandTimeout = 200
com.CommandText = "exec sp_helpdb"
ad.Fill(datat)
Me.DataGridView1.DataSource = datat
con.Close()
و یادتون نره برای تعریف دیتاتیبل و دیتا آداپتور اقدام کنید
Dim con As New SqlConnection("Data Source=کانکشن")
Dim com As New SqlCommand
Dim ad As New SqlDataAdapter(com)
Dim datat As New DataTable