llenar un combo box en vb.net

Hola Grupo:
Necesito llenar un combo con los datos de una tabla (sql
2000), yo lo hago con un procedimiento almacenado de esta
manera:
1 'Dim odatareader As SqlDataReader
2 'cn.Open()
3'Dim com As SqlCommand
4 'com.Connection = cn
5 'com.CommandType = CommandType.StoredProcedure
6 'com.CommandText = "CONMAErutas"
7 'odatareader = com.ExecuteReader
8 'While odatareader.Read
9 'Me.cboruta.Items.Add(odatareader("mrutacodigo"))
10 'End While
11 'odatareader.Close()
12 'cn.Close()

pero me da error al asignarle la conexion (cn) al comando
linea 4
como puedo hacerlo ?

gracias