Function DoSomeWork(Param1 as string) As boolean
Dim cmd As New SqlCommand
Dim conn As New SqlConnection
Try
OpenSQLConnection(conn)
cmd = New SqlCommand
cmd.CommandText = "storedprocedurename"
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.Connection = conn
With cmd
.Parameters.AddWithValue("@Param1", Param1)
.ExecuteNonQuery()
End With
Catch ex As Exception
ThrowError("Error in Insert:" & ex.ToString)
Finally
CloseConnection(conn)
End Try
End Function