Public cn As SqlConnection

    Public Sub createConnectionString(ByVal user_name As String, ByVal password As String)
        Dim bldr = New SqlConnectionStringBuilder()
        bldr.DataSource = "221.1.2.254"
        bldr.InitialCatalog = "trust"
        bldr.UserID = user_name
        bldr.Password = password
        bldr.IntegratedSecurity = False
        cn = New SqlConnection(bldr.ConnectionString)
    End Sub

Dim cmd As New SqlCommand
            cmd = cn.CreateCommand()
            cmd.CommandText = "pldo.usp_derevo_vip_po_ob_pr_tm"
            cmd.CommandType = CommandType.StoredProcedure