Imports MiaClasse
Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strCn As String = "Password=sqladmin;Persist Security Info=True;User ID=sa;Initial Catalog=MyGEST"

        Dim Cl As New MiaClasse(strCn)
        cl.Campo1= TextBox1.Text

        TextBox2.Text = cl.Insert.ToString()
    End Sub

End Class