Cadena de conexion

[Vega19]

buenas tengo un problema

tengo 3 form:

1: Ingresa Servidor= txtservidor
2: Ingresa Bd = txtBd

3 tengo un textbox1 la cual al momento de poner la sentencia y precione clic en el boton me muestre en un datagridview.

Ejemplo:

Ingrese Servidor=(local)
Ingrese bd = Neptuno

y al digitar en el textbox "select *from clientes" me muestre en el datagridview


mi codigo es el siguiente pero no me muestra las tablas:

Código vb:

Imports System.Data.SqlClient
Public Class Form3
    Dim obs As String
    Dim obs2 As String
    Dim cnx As New SqlConnection("server=" & obs & ";Integrated security=true;database=" & obs2 & "")
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        obs = Form1.txtservidor.Text
        obs2 = Form2.txtbd.Text
        lblcone.Text = obs
        lbldb.Text = obs2
        DataGridView1.Visible = False
 
    End Sub
    Sub Mostrar()
        Dim pt As New SqlDataAdapter(TextBox1.Text, cnx)
        Dim tbl As New DataTable
        pt.Fill(tbl)
        DataGridView1.DataSource = tbl
        Me.Refresh()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Call Mostrar()
        DataGridView1.Visible = True
    End Sub
End Class