Bueno, para que no truene modifica esta linea:
Command.CommandText= "Select * From tallas WHERE id = " & comboarticulo & " ORDER BY talla"
a
Command.CommandText= "Select * From tallas WHERE id = '" & comboarticulo & "' ORDER BY talla"
Y es normal que no tenga nada la primera vez, no te preocupes. Lo que tendrías que hacer es algo así:
if comboarticulos = "" Then
Command.CommandText= "Select * From tallas "
else
Command.CommandText= "Select * From tallas WHERE id = '" & comboarticulo & "'
End If
Pureba y me dices.