Keydown
Dim ds As New DataSet
ds = cls00Connection.getDataSet("SELECT * FROM m08Disb where 1=1 and sqlcode=" & vEventCode, vpConnStr)
Dim ds As New DataSet
ds = cls00Connection.getDataSet("SELECT * FROM m08Disb where 1=1 and sqlcode=" & vEventCode, vpConnStr)