Below is an example:
perform using cn as type SqlConnection = new SqlConnection(connectString)
set cmd to cn::CreateCommand()
set cmd::CommandText to "select * from dbo.evantb"
invoke cn::Open()
perform using rdr as type SqlDataReader = cmd::ExecuteReader()
invoke rdr::Read()
display rdr["EMPNAME"]::ToString()
end-perform
end-perform