Вы предполагаете, что ваш запрос вернет хотя бы одну запись, которая может / не может быть истинной все время. Сначала вы должны проверить, есть ли в ваших таблицах хотя бы одна строка, как показано ниже:
if ( table.Rows != null && tables.Rows.Count > 0)
{
Dim img() As Byte;
img = table.Rows(0)(17)
Dim ms As New MemoryStream(img)
Me.PicturePictureBox.Image = Image.FromStream(ms)
}