Prueba a convertirlo a fecha con @TexttoTime() o @Totime()
Dim dc As NotesDocumentCollection
fecha$=Inputbox("","Introduzca la fecha de inicio de la seleccion ")
query= {Form="form1" & (@Texttotime(fecha_inicio)>=[} & fecha$ & {])}
Set dc = ndb.search(query, Nothing , 0)