Visual Basic.NET - Funciona pero con Exception

hola a todos.......tengo una GRAAAAN duda....... les cuento mi problema.

tengo 2 formularios.... Uno guarda los datos de vendedores en una BD y el otro formulario muestra los datos de los vendedores.
el 2do formulario tiene un Combobox donde se almacena el apellido de todos los vendedores y cuando se selecciona 1 de los vededores del combobox se llenan unas cajas de texto con todos los datos correspondientes del vendedor.
El problema es que cuando cargo el formulario me tira el siguiente error:
" NO HAY FILA EN LA POSISION 0 "
pero despues de aceptar el messagebox, los datos me los muestra correctamente y si selecciono un vendedor del combobox me actualiza como corresponde los cambios en los textbox.

QUE ESTA PASANDO????
aca les dejo el codigo que uso

'evento form_load
Try
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\mix.mdf;Integrated Security=True;User Instance=True")
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim comando As New SqlCommand("SELECT * FROM DatosVendedor", con)

con.Open()
comando.ExecuteNonQuery()
da.SelectCommand = comando
ds.Clear()
da.Fill(ds, "DatosVendedor")
ComboV.DataSource = ds.Tables("DatosVendedor")
ComboV.DisplayMember = ds.Tables("DatosVendedor").Columns("apellidoV").ToString
ComboV.ValueMember = ds.Tables("DatosVendedor").Columns("id_vendedor").ToString
ComboV.SelectedIndex = 0
con.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

desde ya muchas gracias

ME OLVIDABA DE UNA COSA.......................

no se si hace falta que lo ponga pero en el evento donde se cambia el valor del combobox tiene el siguiente codigo:

Private Sub ComboVR_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboVR.SelectedIndexChanged
Try
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\mix.mdf;Integrated Security=True;User Instance=True")
Dim cSQL As String
cSQL = "SELECT id_vendedor, comisionRevista FROM DatosVendedor WHERE apellidoV LIKE '" + ComboVR.Text + "'"
Dim da As New SqlDataAdapter(cSQL, con)
Dim ds As New DataSet

con.Open()
da.Fill(ds)

idVendedor = ds.Tables(0).Rows(0).Item(0)
txtComisionR.Text = ds.Tables(0).Rows(0).Item(1)

con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub