Actualizar grilla en tiempo de ejecucion

[matiasgallardo18]

Mira lo hice asi, se graban los datos correctamente.
Vi que colocaste ADAPTADOR.Connection = CONECTOR y tengo entendido que es COMANDO.Connection = CONECTOR por lo tanto lo corregi.

La grilla al estar vacia no esta visible, pero al cargar el primer registro los datos se graban correctamente en la base de datos pero la grilla no se visiviliza. Algo me debe estar faltando, te paso el codigo para que lo veas


Dim CADENA As String = "Data Source=.;Initial Catalog=Comuna;Integrated Security=True"
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)

Dim DS As New Data.DataTable

COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "Cont_InsertarOrdenCompraDetalle"
COMANDO.Parameters.Clear()
COMANDO.Parameters.AddWithValue("@nombre", nombre.Text)
COMANDO.Parameters.AddWithValue("@dni", dni.Text)

ADAPTADOR.Fill(DS)


CONECTOR.Open()

COMANDO.ExecuteNonQuery()

CONECTOR.Close()

COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "obtenerListado

ADAPTADOR.Fill(DS)

GridView1.DataSource = DS

Espero me puedas ayudar.