Hola buen día

Estoy realizando un programa para capturar datos e insertarlos en una base de datos de MS SQL Server 2005. Hasta este momento he podido conectarme a la base de datos, obtener la información de las tablas, alterar campos de dato e insertar.

El problema que tengo y que no se como solucionar es que cada bez que ejecuto la inserción de datos el programa realiza N inserciones como N numero de campos. Es te es el codigo que tengo en mi aplicación.

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fecha As String
        Dim hora As String
        'Mostrando Fecha y Hora en Pantalla
        LblDt.Text = Date.Now.ToShortDateString
        LblHr.Text = Date.Now.ToLongTimeString
        fecha = LblDt.Text
        hora = LblHr.Text
        'DECLARANDO CONEXIONES
        Dim cnn As New SqlConnection("Data Source=snitswdtrace01;Initial Catalog=cummins_trazability;user = sa; password = @@@@@@@@@@@")
        'ADAPTADOR SQL
        Dim da As New SqlDataAdapter
        'PARAMETROS DE MODIFICACION
        Dim ins As New SqlCommand("INSERT INTO Test_Results (GENSN, ROTSN, STASN, VOLUV, VOLUW, VOLVW, AADATE, AATIME) Values(@TxtSerial, @TxtEst, @TxtRot, @TxtVolO, @TxtVolR, @TxtLowV, @LblDt, @LblHr)", cnn)
        da.InsertCommand = ins
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtSerial", SqlDbType.Char))
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtEst", SqlDbType.Char))
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtRot", SqlDbType.Char))
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtVolO", SqlDbType.Float))
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtVolR", SqlDbType.Float))
        da.InsertCommand.Parameters.Add(New SqlParameter("@TxtLowV", SqlDbType.Float))
        da.InsertCommand.Parameters.Add(New SqlParameter("@LblDt", SqlDbType.Char))
        da.InsertCommand.Parameters.Add(New SqlParameter("@LblHr", SqlDbType.Char))

        'Datos 
        Dim Serial As Char
        Dim Vol1 As Double
        Dim Vol2 As Double
        Dim Vol3 As Double
        Dim DT As Char
        Dim Tm As Char

        'Asignacion de valores para parametros
        da.InsertCommand.Parameters("@TxtSerial").Value = Me.TxtSerial.Text
        da.InsertCommand.Parameters("@TxtEst").Value = Me.TxtEst.Text
        da.InsertCommand.Parameters("@TxtRot").Value = Me.TxtRot.Text
        da.InsertCommand.Parameters("@TxtVolO").Value = Me.TxtVolO.Text
        da.InsertCommand.Parameters("@TxtVolR").Value = Me.TxtVolR.Text
        da.InsertCommand.Parameters("@TxtLowV").Value = Me.TxtLowV.Text
        da.InsertCommand.Parameters("@LblDt").Value = Me.LblDt.Text
        da.InsertCommand.Parameters("@LblHr").Value = Me.LblHr.Text

        'Abriendo conexion 
        cnn.Open()
        'Ejecutando inserción
        Serial = ChrW(da.InsertCommand.ExecuteNonQuery())
        Vol1 = da.InsertCommand.ExecuteNonQuery()
        Vol2 = da.InsertCommand.ExecuteNonQuery()
        Vol3 = da.InsertCommand.ExecuteNonQuery()
        DT = ChrW(da.InsertCommand.ExecuteNonQuery())
        Tm = ChrW(da.InsertCommand.ExecuteNonQuery())
        'cerrando conexion
        cnn.Close()

        'limpiando TextBox's
        Dim text As Object
        For Each text In Controls
            If TypeOf text Is TextBox Then text.text = ""
        Next
    End Sub

Alguien tiene alguna idea de que me pueda estar fallando?

Desde ya, muchas gracias por el apoyo


Jesus Solis
Application Support & New Developments