VB Code:
Dim objCommand As New OleDbCommand()
Try
objCommand.Connection = objCon
objCommand.CommandText = "SP_PCMS_APPROVE_CARD"
objCommand.CommandType = CommandType.StoredProcedure
objCommand.Parameters.Add(New OleDbParameter("t_card", OleDbType.Numeric)).Value = cardNo
objCommand.Parameters.Add(New OleDbParameter("t_end_date", OleDbType.Date)).Value = tranPeriodEnd
objCommand.Parameters.Add(New OleDbParameter("t_error", OleDbType.VarChar, 1)).Direction = ParameterDirection.Output
objCon.Open()
objCommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox(Err.Description)
txtbox1.text = Err.Description
Finally
objCon.Close()
recstatus = objCommand.Parameters(2).Value
End Try