cmdStr = "Select * from namen WHERE     (vorn = @name)"
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = con
        cmd.Parameters.AddWithValue("name", strname)
cmd.CommandText = cmdStr
con.Open()
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
 
While dr.Read
i += 1
Console.WriteLine(i.ToString)
End While
con.Close()