CREATE PROCEDURE dbo.GetArt
 AS
 Select
 	 *
 FROM
 	 TableName

CREATE PROCEDURE dbo.UpdateArt
 {
 	 @ArtID int,
 	 @Title varchar(200),
 	 @Contents text,
 	 @Hits int,
 	 @HitText nvarchar(200),
 	 @UserID nvarchar(20)
 }
 AS
 
 UPDATE
 	 TableName
 
 SET
 	 Title = @Title,
 	 Contents = @Contents,
 	 Hits = @Hits,
 	 HitText = @HitText,
 	 UserID = @UserID
 
 WHERE
 	 ArtID = @ArtID

Imports System.Data
 Imports System.Data.SqlClient
 
 Public Class ArtDB
 
 	Private _connectionString As String
 
 	Sub New(ByVal ConnectionString As String)
 		_connectionString = ConnectionString
 	End Sub
 
 
 	Public Function GetArt() As SqlDataReader
 
 		' Create Instance of Connection and Command Object
 		Dim myConnection As New SqlConnection(ConnectionString)
 		Dim myCommand As New SqlCommand("GetAds", myConnection)
 
 		' Mark the Command as a SPROC
 		myCommand.CommandType = CommandType.StoredProcedure
 
 		' Execute the command
 		myConnection.Open()
 		Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
 
 		' Return the datareader 
 		Return result
 
 	End Function
 
 
 	Public Sub UpdateArt(ByVal ArtID As Integer, ByVal Title As String, ByVal Contents As String, ByVal Hits As Integer, ByVal HitText As String, ByVal UserID As String)
 
 		' Create Instance of Connection and Command Object
 		Dim myConnection As New SqlConnection(ConnectionString)
 		Dim myCommand As New SqlCommand("UpdateArt", myConnection)
 
 		' Mark the Command as a SPROC
 		myCommand.CommandType = CommandType.StoredProcedure
 
 		' Add Parameters to SPROC
 		Dim parameterArtID As New SqlParameter("@ArtID", SqlDbType.Int)
 		parameterArtID.Value = ArtID
 		myCommand.Parameters.Add(parameterArtID)
 
 		Dim parameterTitle As New SqlParameter("@Title", SqlDbType.VarChar, 200)
 		parameterTitle.Value = Title
 		myCommand.Parameters.Add(parameterTitle)
 
 		Dim parameterContents As New SqlParameter("@Contents", SqlDbType.Text)
 		parameterContents.Value = Contents
 		myCommand.Parameters.Add(parameterContents)
 
 		Dim parameterHits As New SqlParameter("@Hits", SqlDbType.Int)
 		parameterHits.Value = Hits
 		myCommand.Parameters.Add(parameterHits)
 
 		Dim parameterHitText As New SqlParameter("@HitText", SqlDbType.VarChar, 200)
 		parameterHitText.Value = HitText
 		myCommand.Parameters.Add(parameterHitText)
 
 		Dim parameterUserID As New SqlParameter("@UserID", SqlDbType.VarChar, 20)
 		parameterUserID.Value = UserID
 		myCommand.Parameters.Add(parameterUserID)
 
 		' Execute the command
 		myConnection.Open()
 		myCommand.ExecuteNonQuery()
 		myConnection.Close()
 
 		' Dispose the resource expensive objects
 		myCommand.Dispose()
 		myConnection.Dispose()
 	End Sub
 
 	Public Property ConnectionString() As String
 		Get
 			Return _connectionString
 		End Get
 		Set(ByVal Value As String)
 			_connectionString = Value
 		End Set
 	End Property
 
 End Class
 

Dim artData As New ArtDB("ConnectionStringWouldBePlacedHere")
 Dim datareader As System.Data.SqlClient.SqlDataReader = artData.GetArt()

Dim artData As New ArtDB("ConnectionStringWouldBePlacedHere")
 artData.UpdateArt(1, "Title", "Contents", 60, "HitText", "UserID")