Era bien fácil, gracias por su interes, haa tengo otra duda como adiero esta tabla a la base de datos
Imports System.Data.SqlClient
Public Class Form1
Private oDataRow As DataRow
Private oDataAdpater As New SqlDataAdapter
Private oDataSet As DataSet
Private pos As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oDataRow As DataRow
'Crea las filas y las adiere
oDataRow = Me.oDataSet.Tables("Persona").NewRow()
oDataRow("Nombres") = Me.txtN.Text
oDataRow("Apellidos") = Me.txtA.Text
'Adiere las filas a la tabla
Me.oDataSet.Tables("Persona").Rows.Add(oDataRow)
Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Persona"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.oDataSet = New DataSet
'Crear un nombre para la tabla
oDataSet.Tables.Add("Persona")
'Crea los nombres para las columnas
oDataSet.Tables("Persona").Columns.Add("Nombres")
oDataSet.Tables("Persona").Columns.Add("Apellidos" )
End Sub
End Class