Ya pude crear la tabla

[eduardo90]

Bien amigos ya puede crear la tabla a codigo vb .net, pero tengo una duda porque solo adiere una fila, y cuando quiero aderir mas solo esa row como si lo sustituyera.

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
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" )


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
End Class

[eduardo90]

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