Try
Dim Cox As New SqlConnection(My.Settings.Sistema_NotasConnectionString)
Dim Ad As New SqlDataAdapter("Traer_Todos_Datos", Cox)
Ad.SelectCommand.CommandType = CommandType.StoredProcedure
Ad.SelectCommand.CommandText = "Traer_Todos_Datos"
Dim D As New DataTable
Ad.Fill(D)
Me.DataGridView1.DataSource = D
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try