Zitat Zitat von TomEdl
Versuch einfach mal die nicht angeschlossenen Pins auf GND zu legen und benutze herkömmlich den Initlcd-Befehl. Dann sollte es demenstprechend funktionieren.
Die nicht verwendeten Daten-Pins sollen offen bleiben. Siehe Datenblatt.
Initlcd wird nicht funktionieren, da das Display nicht 100% kompatibel ist. Außerdem ist die Initialisierung neuerdings schon automatisch enthalten.

Zitat Zitat von Kampi
Nein R/W hab ich net auf Ground gelegt. Auch nicht die nicht angeschlossenen Datenpins.
R/W muss auf GND, damit Bascom Befehle und Daten in den Controller schreiben kann.

Deine Declare Zeile muss so aussehen:
Declare Sub Lcdwrite(byval Zeichen As Byte)