Sætte værdi på 2 variabler fra record i database

Løsningen blev med en reader men uden dataset.

                sql = "SELECT rsBeholdning, rsMinimum FROM tblBeholdning WHERE rsVarenummer = '" & TextBox1.Text & "';"
                cmdOLEDB = New OleDb.OleDbCommand(sql, Con)
                dr = cmdOLEDB.ExecuteReader()
                While dr.Read()
                    intBeholdning = dr.Item(0) - 1
                    intMin = dr.Item(1)
                    MsgBox(intBeholdning & " - " & intMin)
                End While

Svar