reduce redundant data access code

SAMPLE 1 - SELECT
Dim SprocCommand As New SqlClient.SqlCommand
        Dim SprocConn As String = WebConfigurationManager.ConnectionStrings("RCD").ConnectionString
        Dim dcPlan As New SqlClient.SqlConnection(SprocConn)
        Dim daPlan As New SqlClient.SqlDataAdapter()
        Dim dsPlan As New DataSet
 
        Try
            SprocCommand.CommandType = CommandType.StoredProcedure
            SprocCommand.Connection = dcPlan
            SprocCommand.CommandText = "usp_plan_find_pin"
 
            Call SprocCommand.Parameters.Clear()
 
            'Create and append the parameters for the SELECT command
            Dim parmSSN As New SqlClient.SqlParameter("@SSN", Trim(txtSSN.Text))
            SprocCommand.Parameters.Add(parmSSN)
 
            Dim parmHPHONE As New SqlClient.SqlParameter("@HPHONE", Trim(txtHTelephone.Text))
            SprocCommand.Parameters.Add(parmHPHONE)
 
            Dim parmHZIP As New SqlClient.SqlParameter("@CERTNUM", Trim(txtCertNum.Text))
            SprocCommand.Parameters.Add(parmHZIP)
 
            If dcPlan.State <> ConnectionState.Open Then
                dcPlan.Open()
            End If
 
            daPlan.SelectCommand = SprocCommand
 
            dsPlan.Clear()
            daPlan.Fill(dsPlan)
 
            dcPlan.Close()
 
SAMPLE 2 - INSERT, UPDATE OR DELETE
                    Dim SprocCommand2 As New SqlClient.SqlCommand
                    Dim SprocConn2 As String = WebConfigurationManager.ConnectionStrings("RCD").ConnectionString
                    Dim dcPlan2 As New SqlClient.SqlConnection(SprocConn2)
                    Dim daPlan2 As New SqlClient.SqlDataAdapter()
 
                    ' get the info. needed to display the test
                    SprocCommand2.CommandType = CommandType.StoredProcedure
                    SprocCommand2.Connection = dcPlan2
                    SprocCommand2.CommandText = "usp_plan_save"
 
                    SprocCommand2.Parameters.Clear()
 
                    'Create and append the parameters for the SELECT command
                    Dim parmPIN2 As New SqlClient.SqlParameter("@PIN", Trim(Session("pr_pin")))
                    SprocCommand2.Parameters.Add(parmPIN2)
                    Dim parmID2 As New SqlClient.SqlParameter("@TESTID", Trim(Session("pr_TestID")))
                    SprocCommand2.Parameters.Add(parmID2)
                    Dim parmQuesID2 As New SqlClient.SqlParameter("@DISPLAYNUM", questionID)
                    SprocCommand2.Parameters.Add(parmQuesID2)
                    Dim parmChoiceID As New SqlClient.SqlParameter("@CHOICEID", choiceID)
                    SprocCommand2.Parameters.Add(parmChoiceID)
 
                    If dcPlan2.State <> ConnectionState.Open Then
                        dcPlan2.Open()
                    End If
 
                    SprocCommand2.ExecuteNonQuery()
 
                    dcPlan2.Close()

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65: