Here is my code I get an runtime error on this line OCmd.ExecuteNonQuery()
Dim Ocn As New OracleConnection()
Dim OCmd As New OracleCommand("AddStudent"

Dim OParam As OracleParameter
Dim IRowsAffected As Int32
Dim sConnectionString As String
Dim sString As String
sConnectionString = "server = ;Uid =scott; pwd = tiger"
sString = "AddStudent"
Ocn = New OracleConnection(sConnectionString)
Ocn.Open()
OCmd = Ocn.CreateCommand()
OCmd.CommandText = sString
OCmd.CommandType = CommandType.StoredProcedure
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 40
OParam.ParameterName = "StudentEmail"
OParam.Value = TxtEmail.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 20
OParam.ParameterName = "LastName"
OParam.Value = TxtLastName.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 20
OParam.ParameterName = "FirstName"
OParam.Value = TxtFirstName.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 20
OParam.ParameterName = "MiddleName"
OParam.Value = TxtMiddle.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 50
OParam.ParameterName = "Address"
OParam.Value = TxtAddress.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 20
OParam.ParameterName = "City"
OParam.Value = TxtCity.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 2
OParam.ParameterName = "State"
OParam.Value = TxtState.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 10
OParam.ParameterName = "ZipCode"
OParam.Value = TxtZipCode.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 10
OParam.ParameterName = "Phone"
OParam.Value = TxtPhone.Text
OCmd.Parameters.Add(OParam)
OParam = New OracleParameter()
OParam.OracleType = OracleType.VarChar
OParam.Size = 10
OParam.ParameterName = "DOB"
OParam.Value = TxtDOB.Text
OCmd.Parameters.Add(OParam)
OCmd.ExecuteNonQuery()
'If IRowsAffected > 0 Then
'MessageBox.Show("Success"
'End If
Ocn.Close()