Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim A As New SqlDataAdapter("SELECT * FROM Bitacora", My.Settings.Sistema_NotasConnectionString)
Dim s As New DataTable
A.Fill(s)
Me.DataGridView1.DataSource = s
End Sub