Public Class DataEntryScreen

    Private _orgName As String

    Private _connectString As String

    Private con As System.Data.SqlClient.SqlConnection

    Private cmd As System.Data.SqlClient.SqlCommand

    Private _sqlStr As String

 

    Public Property orgname() As String

        Get

            Return _orgName

        End Get

        Set(ByVal value As String)

            _orgName = value

        End Set

    End Property

    Public Property connectString() As String

        Get

            Return _connectString

        End Get

        Set(ByVal value As String)

            _connectString = value

        End Set

    End Property

    Public Property sqlStr() As String

        Get

            Return _sqlStr

        End Get

        Set(ByVal value As String)

            _sqlStr = value

        End Set

    End Property

 

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        con = New System.Data.SqlClient.SqlConnection(connectString)

        cmd = New System.Data.SqlClient.SqlCommand(sqlStr)

        cmd.ExecuteNonQuery()

 

    End Sub

 

    Private Sub DataEntryScreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

    End Sub

End Class