parameterizes stored procedure in vb.net (vs 2010 express)

mysql> create procedure login(in user varchar(20),in pass varchar(20),out date1
date)
-> begin
-> set date1 = (select Dt from emp3 where userid=user and password = pass);
-> end$$
Query OK, 0 rows affected (0.00 sec)

Dim con As MySqlConnection = New MySqlConnection("Server=localhost;Database=siddhu;Uid=root;Password=1234;")
      Dim message As String = [String].Empty
      Dim cmd As MySqlCommand = New MySqlCommand("login", con)
      con.Open()
      cmd.CommandType = CommandType.StoredProcedure
      cmd.Parameters.Add(New MySqlParameter("user", MySqlDbType.VarChar))
      cmd.Parameters("user").Direction = ParameterDirection.Input
      cmd.Parameters("user").Value = "prasad"

      cmd.Parameters.Add(New MySqlParameter("pass", MySqlDbType.VarChar))
      cmd.Parameters("pass").Direction = ParameterDirection.Input
      cmd.Parameters("pass").Value = "530"

      cmd.Parameters.Add(New MySqlParameter("@date1", MySqlDbType.Date))
      cmd.Parameters("@date1").Direction = ParameterDirection.Output
      Try

      Dim i As Integer
      i = cmd.ExecuteNonQuery()
      If i > 0 Then
          MessageBox.Show(cmd.Parameters("@date1").Value)
      Else
          MessageBox.Show(i)
      End If
      Catch ex As Exception
          MessageBox.Show(ex.ToString())
      End Try

      con.Close()

always it give me output as zero

Tags: Visual Basic