Guardar en Sql (insertar)

 Try

            conex.Close()

            If coneccion_BD("usuario", "contraseña") = 1 Then

                conex.ConnectionString = strconexion

                              Dim Datos As String = "'" & id & "', " & "'" & idtarea & "','" & idprograma & "','" & Session("Origen") & "','" & TxtAlcance.Text & "','" & TxtProAud.Text & "','" & buscasigla(Session("Usuario")) & "','" & TxtReferencia.Text & "'"

                conex.Open()

                With cmdincluir

                    .Connection = conex

                    .CommandText = "INSERT INTO [AUDITORIA].[dbo].[ProgramaAuditoria]([IdPlan] ,[IdTarea] ,[IdPrograma],[Origen],[Alcance],[Procedimiento],[Elabora],[Referencia]) VALUES(" & Datos & ")"

                    .CommandType = CommandType.Text

                    .Transaction = transaccion

                End With

                iRegincluir = cmdincluir.ExecuteNonQuery 'No retorna una Consulta

                'Cerramos conexion

                conex.Close()

                          End If

        Catch ex As Exception

            'Anunciamos el error

            LblErrores.Text = ex.Message

        End Try