Hola!!
Suponiendo que el campo codigo es numérico y lo escribes en un TextBox, sería algo así:
Código:
sql = "SELECT colonias FROM LaTabla WHERE codigo = " & Text1.Text
recordset.Open sql, conexion
Do Until recordset.EOF
Combo1.AddItem recordset(0)
recordset.MoveNext
Loop
Nota: sustituye lo marcado en rojo por el nombre de tus campos y variables.