Miro, o ';' vc pode tirar usando o REPLACE
If Left(Trata, 15) = "StreamingServer" Then
Resultado = Trim(Mid(Trata, InStr(Trata, "=") + 1))
Resultado = Replace(Resultado,";","")
End If
Gravar os parametros é exatamente como gravar um textbox
If Left(Trata, 15) = "StreamingServer" Then
Tb.AddNew
Tb!Campo = Trim(Mid(Trata, InStr(Trata, "=") + 1))
Tb.Update
End If
Exemplo acima está sendo usado a conexão DAO, mude para a sua conexão.