Visual Basic.NET - cargar datos sql a datagridview y de forma normal vb.net

buenas tardes

tengo lo siguiente:

'este metodo carga lo del sql server al datagridview con columnas ya asignadas en el formulario
Private Sub BTNCARGAR_Click(sender As Object, e As EventArgs) Handles BTNCARGAR.Click
DGVGENERAL.Rows.Clear()
'DGVGENERAL.Columns.RemoveAt(DGVGENERAL.Columns.Count - 1)
Dim ADAPTADOR As New SqlDataAdapter
Dim COMANDO As String = "SELECT EMPLEADO, TIPO, NACIONALIDAD, IDENTIDAD, CORRELATIVO, NOMBRE_PACIENTE, " _
& "PRIMER_APELLIDO, SEGUNDO_APELLIDO, SEXO, ESPECIALIDAD, MEDICO, CLINICA, CENSADO, CITADO " _
& "FROM TEMP_CENSO WHERE EMPLEADO='" & LOGIN.TXTUSUARIO.Text & "'"
Dim DATO As DataSet
ADAPTADOR = New SqlDataAdapter(COMANDO, CONEXION)
DATO = New DataSet
ADAPTADOR.Fill(DATO)
Try
If DATO.Tables(0).Rows.Count > 0 Then
'DGVGENERAL.DataSource = DATO.Tables(0).DefaultView
For I = 0 To DATO.Tables(0).Rows.Count - 1
DGVGENERAL.Rows.Add(
DATO.Tables(0).Rows(I).Item("EMPLEADO"),
DATO.Tables(0).Rows(I).Item("TIPO"),
DATO.Tables(0).Rows(I).Item("NACIONALIDAD"),
DATO.Tables(0).Rows(I).Item("IDENTIDAD"),
DATO.Tables(0).Rows(I).Item("CORRELATIVO"),
DATO.Tables(0).Rows(I).Item("NOMBRE_PACIENTE"),
DATO.Tables(0).Rows(I).Item("PRIMER_APELLIDO"),
DATO.Tables(0).Rows(I).Item("SEGUNDO_APELLIDO"),
DATO.Tables(0).Rows(I).Item("SEXO"),
DATO.Tables(0).Rows(I).Item("ESPECIALIDAD"),
DATO.Tables(0).Rows(I).Item("MEDICO"),
DATO.Tables(0).Rows(I).Item("CLINICA"),
Format(CDate(DATO.Tables(0).Rows(I).Item("CENSADO")), "dd/MMMM/yyyy"),
Format(CDate(DATO.Tables(0).Rows(I).Item("CITADO")), "dd/MMMM/yyyy"))
Next
ElseIf DATO.Tables(0).Rows.Count = 0 Then
MsgBox("NO HAY NINGUN DATO ALMACENADO PARA CARGAR")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
TXTTOTAL.Text = DGVGENERAL.Rows.Count
end sub

'este metodo carga registros nuevos en el datagridview
Sub AGREGAR()
Dim CENSO As String = Format(CDate(CENSADO.Value), "dd/MMMM/yyyy")
Dim CITA As String = Format(CDate(CITADO.Value), "dd/MMMM/yyyy")
DGVGENERAL.Rows.Add(LOGIN.TXTUSUARIO.Text, CMBCLASIFICACION.Text, CMBNACIONALIDAD.Text, TXTIDENTIDAD.Text,
TXTCORRELATIVO.Text, TXTNOMBRES.Text, TXTPRIMERAPELLIDO.Text, TXTSEGUNDOAPELLIDO.Text,
CMBSEXO.Text, TXTESPECIALIDAD.Text, TXTMEDICO.Text, TXTCLINICA.Text, CENSO, CITA)
End Sub

EL PROBLEMA QUE PRESENTE ESTOS METODOS ES QUE ME SALE EL MENSAJE:
"no se pueden agregar filas mediante programación a la colección de filas de datagridview cuando el control está enlazado a datos"

LO QUE NECESITO ES QUE EL METODO SQL A DATAGRIDVIEW CARGUE LA INFORMACION PARA LUEGO AGREGAR REGISTROS NUEVOS EN EL DATAGRIDVIEW LLAMADA "DGVGENERAL". PARA LUEGO GUARDAR

GRACIAS DE ANTEMANO

Hola,

Este código es fuente de problemas !
Debes lo cambiar para esperar buenos resultados.

El DataAdapter no da un DataSet pero da un DataTable. el DataSet es un colección de DataTable y tu DataSet Dato recibe un DataTable por defecto pero no es bien trabajar.

Primero, el DataSet debe ser declarado al inicial del Form, no en un procedimiento. De esta manera, lo sera accesible en todos procedimientos.
En el procedimiento, debe declarar un New DataTable para el Adapter. Es este DataTable que debe dar los datos al DGV por afectación de su propiedad DataSource. Después este momento, debe nada hacer para ver los datos en el DGV, sobre todo, no añadir las lineas con For ...
Cuando quieres añadir líneas en el DGV, debes lo hacer en el DataTable y el DGV sera actualizado automáticamente.

Ejemplo :


Cuando simplificas este código, podemos ver si otros problemas.

...