A mi alguna vez me mando ese error y efectivamente se soluciono al reinstalar Visual Studio

Pues como comentario yo he implementado aplicaciones con ClickOnce y Sql (a veces hay algo de problemas con los permisos) pero se maneja igual la conexion, no creo que importe donde este ubicada la aplicacion mientras tenga acceso a la base de datos en un servidor, el problema de ClickOnce es que te limita mucho el acceso a las zonas protegidas por el sistema operativo (en especial en vista) ya que si quieres modificar una entrada del registro de Local machine por ejemplo o copiar un archivo a las carpetas del SO, no te lo permite, o al menos no lo he logrado, aunque le declares en el manifiesto del ensamblado como una aplicacion Full trust.

Y hablando de privilegios de administrador declarados en el ensamblado tampoco te los permite, la unica declaracion que puedes hacer es "AsInvoker"

pero en fin , por la naturaleza de tu aplicacion no creo que te cause ningun problema.

Y pues como sugerencia por que no pones un MessageBox en el form_Load desplegando la variable My.Application.Info.DirectoryPath o Application.ExecutablePath para saber en donde esta ubicada.

Aunque segun lo que he visto no siempre esta en la misma carpeta ya que es una aplicacion sincronizada con un repositorio y maneja versionados autoincrementales cada que haces la publicacion.

Ok espero sirva amigo.

Nota: si algo de lo que dije es incorrecto, desmientanme ok.

El problema esta aqui:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim oSW As New StreamWriter("C:\archivo_prueba.txt")
 
        Dim Linea = ListBox1.Items.ToString  'El objeto ListBox1.Items es del tipo ListBoxObjectCollection y al convertirlo a cadena no obtienes el texto
                                                         'ya que ListBox1.Items es un arreglo de items
        oSW.WriteLine(Linea)
        oSW.Flush()
 
    End Sub
 

Cambialo por:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim oSW As New StreamWriter("C:\Users\dguatemala\archivo_prueba.txt")
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            Dim Linea = ListBox1.Items(i).ToString() 'Asi obtienes cada elemento del arreglo y conviertes su valor a cadena
            oSW.WriteLine(Linea)
            oSW.Flush()
        Next
 
 
    End Sub
 

Eso, en teoria, te deberia funcionar como quieres, espero te sirva

Si- Visual Basic .Net C# - [Nivel: 5] el tiempo que podria invertir seria poco pero con gusto ayudaria

Si utilizas la funcion Trim() te devuelve la cadena pero sin espacios, no se si esto solucione este problema,
por ejemplo.

FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
        PrintLine(1, TextBox1.Text.trim()) 'Inserta la cadena sin espacios
 

Tambien podria ser que lo utilices al momento de leer

If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto.Trim() 'Lee la cadena sin espacios
            End If
 

Otra idea es meterle como parametro al Trim el salto de linea

If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto.Trim(CChar(vbCrLf)) 'Lee la cadena sin saltos de linea
            End If
 

espero te sirva de algo.

Pues lo que se me ocurre es crear un ejecutable que lo haga, y lo colocas como accion personalizada en tu instalador.

Oye y no podria ser una buena opcion que en lugar de guardar los pass te los envie por mail.

Bueno en realidad hay varias formas de hacerlo y como ya mencionaron una de ellas es utilizar "Output"
pero yo creo que la mas facil es agregar el TableAdapter y despues en el equema de datos le das click derecho a tu TableAdapter y le pones "agregar consulta" o "add query", posteriormente se debe de abrir un asistente, seleccionas "Usar instrucciones SQL", y le das siguente, cuando te pida el tipo de consulta le das INSERT y cuando le des siguiente te va a generar algo asi:

INSERT INTO [Personas] ([Nombre], [Descripcion]) VALUES (@Nombre, @Descripcion);
SELECT ID,Nombre,Descripcion FROM Grupos WHERE (ID = SCOPE_IDENTITY())
 

este metodo te insertara el nuevo dato en la tabla y te retornara la fila que se inserto, asi que solo bastaria modificarla para que solo nos deje el dato que queremos.

INSERT INTO [Personas] ([Nombre], [Descripcion]) VALUES (@Nombre, @Descripcion);
SELECT ID FROM Grupos WHERE (ID = SCOPE_IDENTITY())
 

y entonces eso te retornaria el id del dato insertado

NOTA: Esto es utilizando VS 2008, no se que tan diferente sea en otras versiones

Por que no creas un trigger para cuando insertes, y que te devuelva la id de la tabla inserted.

Lo que te de la operacion lo guardas en la variable Media y asi ya esta relacionado

dim Media as Integer

Media = (cal1 + cal2 + cal3) /3

select case Media

etc...