How I can modify this code in the reader to display message in case the table archivedmax does not have values in it
please help
Dim strConnString As String = ConfigurationManager.ConnectionStrings("SMIS2022ConnectionString").ConnectionString
Using con As SqlConnection = New SqlConnection(strConnString)
Using cmd As SqlCommand = New SqlCommand()
cmd.CommandText = "SELECT * From Archivemax"
' cmd.Parameters.AddWithValue("@Id", ID)
cmd.Connection = con
con.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader()
sdr.Read()
Monthed.Text = sdr("Month").ToString()
Expr2.Text = sdr("Expressed").ToString()
types2term1.SelectedValue = sdr("Type").ToString()
'k4.Text = sdr("r4").ToString()
con.Close()
End Using
End Using