If drPhoto.HasRows = True Then
While (drPhoto.Read() = True)
Dim i As Integer
For i = 0 To drPhoto.FieldCo unt - 1
If i = 0 Then
Dim texta As String = Convert.ToStrin g(drPhoto.GetVa lue(i))
End If
If i = 1 Then
Dim MS As System.IO.Memor yStream...