مقداری از دیتابیس

سلام دوستان
من دو کد دارم که نمی فهمم چرا کارش رو درست انجام نمی ده , اگر ممکنه راهنمایی ام کنید.
من یک فرم دارم که باید مقداری را از دیتابیس بخواند و بر اساس آن عدد صفحه ای را باز کند (اگر مقدار 3 بود صفحه 1 اگر 2 صفحه 2 و ...........)

دستور select را در SQL امتحان کردم درست کار میکند . من می خواهم پس از Select مقدار را در متغیر x قرار دهد اما این کار را نمی کند.

strSql5 =

" SELECT distinct u_useraction.[action-code] from [DB-university].[dbo].[u_users],[DB-university].[dbo].[u_useraction]"

strSql5 = strSql5 +

" where [DB-university].[dbo].[u_users].[user-code]=[DB-university].[dbo].[u_useraction].[user-code] "

If tbpassword.Text <> ""Then

strSql5 = strSql5 +

" and password = '" + tbpassword.Text + "' "

EndIf

Dim x AsInteger = Convert.ToInt32(dsTest5.Tables.Item("action-code"))
If x = "3"Then

Dim F AsNew studeform
F.Show()
ElseIf x = "2"Then