Dim conn As New SqlClient.SqlConnection(My.Settings.myConnectionString)
        Dim cmd As New SqlClient.SqlCommand
        Dim str As String
        str = "sp_addmao"
        With cmd
            .CommandType = CommandType.StoredProcedure
            .CommandText = str
            .Parameters.AddWithValue("@barangay", txtbox1.Text)
            .Parameters.AddWithValue("@umonth", txtbox2.Text)
            .Parameters.AddWithValue("@uyear", txtbox3.Text)
            .Parameters.AddWithValue("@useason", txtbox4.Text)
            .Parameters.AddWithValue("@ucategory", txtbox5.Text)
            .Parameters.AddWithValue("@hybridarea", h1.Text)
            .Parameters.AddWithValue("@hybridfarmers", h2.Text)
            .Parameters.AddWithValue("@certifiedarea", c1.Text)
            .Parameters.AddWithValue("@certifiedfarmers", c2.Text)
            .Parameters.AddWithValue("@goodarea", g1.Text)
            .Parameters.AddWithValue("@goodfarmers", g2.Text)
            .Parameters.AddWithValue("@totalarea", totalarea.Text)
            .Parameters.AddWithValue("@totalfarmers", totalfarmers.Text)
            .Connection = conn
        End With
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()

ALTER PROCEDURE sp_addmao
@barangay  varchar(50),
@umonth  varchar(50),
@uyear  varchar(50),
@useason  varchar(50),
@ucategory  varchar(50),
@hybridarea varchar(50),
@hybridfarmers  varchar(50),
@certifiedarea  varchar(50),
@certifiedfarmers  varchar(50),
@goodarea  varchar(50),
@goodfarmers  varchar(50),
@totalarea  varchar(50),
@totalfarmers  varchar(50)

AS
Insert INTO mao
& #40;barangay,umonth,uyear,useason,ucategory,hybridarea,hybridfarmers,certifiedar
ea,certifiedfarmers,
goodarea,goodfarmers,totalarea,totalfarmers)
Values
& #40;@barangay,@umonth,@uyear,@useason,@ucategory,@hybridarea,@hybridfarmers,@cer
tifiedarea,@certifiedfarmers,
@goodarea,@goodfarmers,@totalarea,@totalfarmers);

Dim sql As New SqlCommand("sp_addmao", conn)
        sql.CommandType = CommandType.StoredProcedure

        ' Set the store procedure parameters for the data
        Dim barangay As New SqlParameter
        With barangay
            .ParameterName = "@barangay"
            .SqlDbType = SqlDbType.Char
            .Value = txtbox1.Text
        End With
        sql.Parameters.Add(barangay)