Do <<--------------- don't need it
While (myDataReader.Read)
End While

Loop While (myDataReader.NextResult) <<--------------- don't need it

Reader stops reading when done.

But i've still 2 other problems:

* why can't i read my userid => stockated in the first column of my database
(primary key and identity on!)
* when i'm using sessions here i get a message that i have to set the
enableSessionState...
Where can i do that, on the other forms in the same project, i didn't have to
do it...



Stored procedure:
*********************

CREATE PROCEDURE dbo.usp_SelectKlant
(
@KNaam char(20),
@Paswoord char(20)
)
AS
SET NOCOUNT ON;
SELECT KlantID, KNaam, Paswoord, SesID FROM KLANT WHERE (KNaam = @KNaam) AND
(Paswoord = @Paswoord)
GO

in region:
***********

Me.SqlSelectCommand1.CommandText = "[usp_SelectKlant]"
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand1.Connection = Me.SqlConnection2
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int,
4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0,
Byte), "", System.Data.DataRowVersion.Current, Nothing))
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@KNaam", System.Data.SqlDbType.VarChar, 20,
"KNaam"))
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Paswoord", System.Data.SqlDbType.VarChar,
20, "Paswoord"))

*********
Dim myName As String = txtName.Text.ToLower.Trim
Dim myPass As String = txtPassword.Text.ToLower.Trim

SqlSelectCommand1.Parameters("@KNaam").Value = myName
SqlSelectCommand1.Parameters("@Paswoord").Value = myPass
SqlConnection2.Open()

Dim myDataReader As System.Data.SqlClient.SqlDataReader
myDataReader = SqlSelectCommand1.ExecuteReader

If (myDataReader.Read) Then

Dim myKlantID As String = CType(myDataReader.GetString(0), String)
Dim myNameDB As String = myDataReader.GetString(1).ToLower.Trim
Dim myPassDB As String = myDataReader.GetString(2).ToLower.Trim

If ((myName.ToLower = myNameDB) And (myPass.ToLower = myPassDB)) Then

foutmelding.Text = "Gelukt"
Session("KlantID") = myKlantID
TextBox1.Text = myNameDB
TextBox2.Text = myPassDB
'...
Else
'niet ingelogd
foutmelding.Text = "Mislukt"
TextBox1.Text = myKlantID.ToString & "-" & myNameDB
TextBox2.Text = myPassDB & "-" & myPass
End If
Else
'niet ingelogd
foutmelding.Text = "mislukt"

End If

I've forgotton all my SQL since messing with controls (... and
good riddance, boring, boring, boring)

Dim myKlantID As String = CType(myDataReader.GetString(0), String)
Dim myNameDB As String = myDataReader.GetString(1).ToLower.Trim <<--- why no
Ctype ?
Dim myPassDB As String = myDataReader.GetString(2).ToLower.Trim <<--- why no
Ctype ?

you anwered:

Dunno on (a) ... I've forgotton all my SQL since messing with controls
(... and good
riddance, boring, boring, boring)

Dim myKlantID As String = CType(myDataReader.GetString(0), String)
Dim myNameDB As String = myDataReader.GetString(1).ToLower.Trim
<<--- why no Ctype ?
Dim myPassDB As String = myDataReader.GetString(2).ToLower.Trim
<<--- why no Ctype ?



the problem isn't in myNameDB and myPassDB, those work  just fine cos they are
already varchars in my database  i guess...
But myKlantID is an integer + primary key + identity (for autoincrementing) is
on
and there it don't work...

will give another code  snippet:


Stored procedure:
*********************

CREATE PROCEDURE dbo.usp_SelectKlant
(
@KNaam char(20),
@Paswoord char(20)
)
AS
SET NOCOUNT ON;
SELECT KlantID, KNaam, Paswoord, SesID FROM KLANT WHERE (KNaam = @KNaam) AND
(Paswoord = @Paswoord)
GO

in region:
***********

Me.SqlSelectCommand1.CommandText = "[usp_SelectKlant]"
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand1.Connection = Me.SqlConnection2
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int,
4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0,
Byte), "", System.Data.DataRowVersion.Current, Nothing))
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@KNaam", System.Data.SqlDbType.VarChar, 20,
"KNaam"))
Me.SqlSelectCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Paswoord", System.Data.SqlDbType.VarChar,
20, "Paswoord"))

in code:
*********
Dim myName As String = txtName.Text.ToLower.Trim
Dim myPass As String = txtPassword.Text.ToLower.Trim

SqlSelectCommand1.Parameters("@KNaam").Value = myName
SqlSelectCommand1.Parameters("@Paswoord").Value = myPass
SqlConnection2.Open()

Dim myDataReader As System.Data.SqlClient.SqlDataReader
myDataReader = SqlSelectCommand1.ExecuteReader

If (myDataReader.Read) Then

Dim myKlantID As String = CType(myDataReader.GetString(0), String)
<<<<<<<<<<<<<<<<<don't go...
Dim myNameDB As String = myDataReader.GetString(1).ToLower.Trim
Dim myPassDB As String = myDataReader.GetString(2).ToLower.Trim

If ((myName.ToLower = myNameDB) And (myPass.ToLower = myPassDB)) Then

foutmelding.Text = "Gelukt"
Session("KlantID") = myKlantID <<<<<<<<<<<<<<<<<<<<<<<<<<<<< don't
go...
TextBox1.Text = myNameDB
TextBox2.Text = myPassDB
'...
Else
'niet ingelogd
foutmelding.Text = "Mislukt"
TextBox1.Text = myKlantID.ToString & "-" & myNameDB
TextBox2.Text = myPassDB & "-" & myPass
End If
Else
'niet ingelogd
foutmelding.Text = "mislukt"

End If

just a quicky ... I hav had problems in the past with converting types.

Trouble is I'm a sharper

Sometimes the conversion (int)adouble; will fail , whereby
Convert.ToInt32(adouble); will work  ... what is the equivalent in VB ?

If GetString90) is an autoincrement in db then shouldn't you be using an integer
version ? at a guess myDataReader.GetInt32() or GetValue() or something ?

Once upon a time I used the following
(Convert.ToDecimal(reader.GetValue(1))*(decimal)(reader.GetValue(2))).ToString("\
N")

yes indeed,
had already found it this time
had to use mydatareader.getInt32 in stead of first get string  and than cast it
to a integer

and equivalent in vb for

c# =>(integer) myvar
vb => cint(myvar) or ctype (myvar, integer)

anyway, txs for your help