Неверная попытка доступа к полю перед вызовом Read() vb.net

Question

Я получил эту ошибку не из-за ошибки кода, но из-за нет данных в моей таблице

Как проверить, если нет никаких данных и возврат в переменной, 0

вот мой код я пытаюсь получить номер счетчика, но это ошибка, когда нет записей

Public Function GetCount() 
    Dim count As Integer 
    Dim cmd As New MySqlCommand 
    Dim reader As MySqlDataReader = Nothing 
    Conn.OpenConn() 
    Dim sqlstr As String 
    sqlstr = "SELECT counter FROM st_sales ORDER BY salesid DESC LIMIT 1" 
    Try 
    'CREATE COMMAND 
    cmd = New MySqlCommand(sqlstr, Conn.Conn) 

    reader = cmd.ExecuteReader() 
    If reader.Read() Then 
     count = reader.GetInt32(0) + 1 
    Else 
     MsgBox("Error") 
    End If 
    Finally 
     reader.Close() 
     Conn.CloseConn() 
    End Try 
    Return count 
End Function 

Спасибо за любую healp

Answer 1

попробуйте это

If reader.HasRows then 
'do the counting 
else 
    count=0 
end if