Visual Basic.NET - Sigo con el problema

Todo estaba funcionando bien, pero me puse a realizar unas pruebas y ahora sigo igual que al principio, vale decir solo actualiza en datagrid, pero no la tabla, me explico, veo que se actualiza el datagrid, me salgo de la pantalla e ingreso otra vez y el cambio que yo realice al nombre no se a efectuado.

Como curiosa a tomar en cuenta, si yo pongo lo siguiente : si yo escribo los sig.

PersonalDataSet1.Tables("Personal").Rows(Posicion).Item(1) = “Pepe”
Si funciona correctamente, pues actualice el datagrid y también la tabla

El problema es como dejar las variables de las cajas de texto dentro de comillas ej “Text_Nom.Text”


Les envío el método modificar que esta asociado al datagrid

Private Sub Personal_Julio_Cesar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PersonalSqlDataAdapter.Fill(PersonalDataSet1)
End Sub



Si se dan cuenta estoy trabajando directamente con los adaptadores, en ningun momento uso sentencias sql

Private Sub Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modificar.Click

Dim CbActualiza As New SqlCommandBuilder(PersonalSqlDataAdapter)

Dim Row As DataRow = Me.PersonalDataSet1.Tables("Personal").NewRow

Dim Posicion As Integer
Posicion = Me.BindingContext(PersonalDataSet1, "Personal").Position
Row("Id_Codigo") = Val(Text_Cod.Text)
Row("Id_Nombre") = Text_Nom.Text
Row("Id_Dire") = Text_Dir.Text
Row("Id_Fono") = Text_Fono.Text
Row("Id_Fec_Nac") = CDate(Text_Fec.Text)

‘No funciona para la tabla
PersonalDataSet1.Tables("Personal").Rows(Posicion).Item(1) = Text_Nom.Text ' Esto funcionaba antes sin problemas, ahora no se que "@·#! Paso, disculpa pero esto me supera

'Ahora si yo modifico el prgrama y lo dejo entre comillas si funciona, la pregunta es como dejar entre comillas la caja de texto con lo que yo escribo

PersonalDataSet1.Tables("Personal").Rows(Posicion).Item(1) = “Pepe”
Try
CbActualiza.GetUpdateCommand()
PersonalSqlDataAdapter.Update(PersonalDataSet1)
PersonalDataSet1.Tables("Personal").AcceptChanges()
MsgBox("lo pude Actualizar", MsgBoxStyle.Information, "Atención!")
Limpiar_Variables()
Catch ex As Exception
MsgBox("No se pudo Modificar", MsgBoxStyle.Information, "Atención!")
End Try
End Sub

Una vez mas gracias por su ayuda

Esto añade comillas as textbox

Dim ss As String = Chr(34) & txtnombre.text & Chr(34)
MessageBox.Show(ss)

Despues de crear el nuevo DataRow (con NewRow) y asignar los valores a dicho datarow... no habria que añadir la fila al datatable (con datatable.rows.add(nuevaFila))??