Checking Value In 2 Tables.

i want to check a value in 2 tables. the 1st table i want to check if the value exists and from the 2ed table i samething.

i came up with this but when it's doing the second if i get error on the page.

Dim ReturnVal As Integer

Dim ReturnVal2 As IntegerDim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("imacstestConnectionString").ConnectionString)

Dim cmd As SqlCommand = New SqlCommand("SELECT [ReportNumber] FROM [AppraisalSummaryBlue] WHERE ([ReportNumber] = @ReportNumber)", conn)

'To check if the # is registered.Dim cmd2 As SqlCommand = New SqlCommand("SELECT [ReportNumber] FROM [t_RegisterInfoTemp] WHERE ([ReportNumber] = @ReportNumber)", conn)

cmd.Parameters.AddWithValue("@ReportNumber", txtReport.Text)cmd2.Parameters.AddWithValue("@ReportNumber", txtReport.Text)

conn.Open()

ReturnVal = Convert.ToInt32(cmd.ExecuteScalar())

conn.Close()

'This checks if the # is correct.

If ReturnVal > 0 Then

'This checks if its registered with someone else.

conn.Open()

ReturnVal2 = Convert.ToInt32(cmd2.ExecuteScalar())

conn.Close()

If ReturnVal2 <> 0 ThenServer.Transfer("regccinfo.aspx")

Else

lblError.Text = "the # is registered with someone else."

End If

Else

lblError.Text = "the # does not exists."

txtReport.Focus()

End If