Si lo que quieres es que no escriban puedes poner esto:
Private Sub DataCombo1_Click(Area As Integer)
DataCombo1.Locked = False
End Sub
Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
DataCombo1.Locked = True
End Sub
Lo que logras es que cunado quiera escribir se bloquea pero si vas a seleccionar haciendo click se desbloquea y perfectamente lo puedes utilizar...
Espero te sirva...
