Buenas tardes amigos espero esten bien necesito de su ayuda yo programo en VB6 SP6 y Sql2005 estoy migrando a VB Net 2010 con SQl 2005 tengo el siguiente problema al tratar de guardar un registro:

El vb6 Sp6 yo tengo el siguiente metodo de guardo:
Dim rsEntradas As New ADODB.Recordset
Dim Sqlins As String

Sqlins = "Select * From Entrad_Lineas
rsEntradas.Open Sqlins, dbConexion, adOpenStatic, adLockPessimistic

rsEntradas.AddNew

rsEntradas!Numero_Entrada = TxtNumeroAjusteLinea.Text
rsEntradas!Numero_Registro = txtConsecutivo3.Text
rsEntradas!Usuario = Usuario

'Se actualiza el registro
rsEntradas.Update

'Cerras el recordset
rsEntradas.Close

'===============En Vb Net 2010 quiero Hacer lo mismo definiendo yo las columnas a guardar de acuerdo a su nombre para ello trato de hacer esto

Dim BDConexion As SqlConnection = abrirConexion()
BDConexion.Open()
Dim daEntrad_Lineas As New SqlDataAdapter("Select * From Entrad_Lineas", BDConexion)
Dim dataSet As New DataSet("POS")

daEntrad_Lineas.FillSchema(dataSet, SchemaType.Source, "Entrad_Lineas")
daEntrad_Lineas.Fill(dataSet, "Entrad_Lineas")

Dim tablaBD As DataTable
Dim dataRow As DataRow

consecutivoIndiceTemporal()
tablaBD = dataSet.Tables("Entrad_Lineas")
dataRow = tablaBD.NewRow()

dataRow("Numero_Entrada") = txtTemporal.Text
dataRow("Numero_Registro") = txtCosecutivo3.Text
dataRow("Usuario") = Usuario
tablaBD.Rows.Add(dataRow)

'****** Al ir a Guardar no me graba ningun registro mucho les agradezco su ayuda

hola amigo la pregunta es quieres insertar o seleccionar porque ahí estas seleccionando.
y yo para hacer un select en sql hago lo siguiente.

Código:

Imports System.Data
Imports System.Data.SqlClient
Public Class Login
    Dim NIVEL As Integer
    Dim conexion As SqlConnection

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conexion As New SqlConnection("Server=nombre de tu servidor;uid=nombre de usuario;pwd=contraseña;database=nombre de la base de datos")

    End Sub
   Private Sub BTNEntrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNEntrar.Click
        Dim COMAND As New SqlCommand("SELECT NOMBRE,NIVEL FROM USUARIOS WHERE NOMBRE_USUARIO='" & TXTNOMBRE_USUARIO.Text & "' AND PASSWORD='" & TXTPASSWORD.Text & "' ", conexion)
        conexion.Open()

        Dim datareader As SqlDataReader = COMAND.ExecuteReader()
        If datareader.Read = 0 Then

            MessageBox.Show("No Traee Datos")

        End If
    End Sub
End Class

Saludos:

Te falta finalizar la instruccion sobre el DataTable, asi:

tablaBD.AcceptChanges()

Espero ayude.


JOSE LUIS