Problema con System.IndexOutOfRangeException

Que tal amigo buen día! Sopy nuevo en el mundo de la programación y tengo un pequeño problema con unas etiquetas que estoy realziando en VB 2010 debido a que la información obtenida proviene de una base de datos de SQL, mi problema es que cuando intento buscar una factura que no existe me aparece el error System. IndexOutOfRangeException, que tengo que hacer para solocionar dicho error, y que cuando busque una factura inexistente me aparezca un msgbox con dicha leyenda y no me cierre el programa!?... Agradezco de antemano la ayuda que me proporciones.. Adjunto mi código por si acaso. Saludos
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filas() As DataRow
filas = Me.EtiquetasDataSet.etiquetas.DataSet.Tables(0).Select("DocNum = " & txtFactura.Text)
txtnumCliente.Text = filas(0).ItemArray(2).ToString()
txtCliente.Text = filas(0).ItemArray(3).ToString()
txtDireccion.Text = filas(0).ItemArray(4).ToString()
txtPedido.Text = filas(0).ItemArray(5).ToString()
txtRFC.Text = filas(0).ItemArray(6).ToString()
?
?
End Sub
?
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EtiquetasDataSet.etiquetas' table. You can move, or remove it, as needed.
Me.EtiquetasTableAdapter.Fill(Me.EtiquetasDataSet.etiquetas)
Dim fecha As Date
Dim ins As String
fecha = Date.Now
ins = "Fecha de Envío : " & (fecha) & "/" & Month(fecha) & "/" & Year(fecha)
Label2.Text = ins
End Sub
Private Function IsDBNull() As Boolean
Throw New NotImplementedException
End Function
End Class