COLETANDO O CONTEUDO STRINGCONEXAO

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String = "Select [padrao],[layout],[esquematico],[manual] from modlogado where aparelho = v3"
        MsgBox(AlteraParametro(s, "padrao", "Teste"))
    End Sub
    Public Function AlteraParametro(ByVal expressao As String, ByVal parametro As String, ByVal valor As String) As String
        Return expressao.Replace("[" + parametro + "]", valor)
    End Function