SUB btnExecute_click
cmd.CommandText=" SELECT DISTINCT NAME, RANK, CODE FROM CUSTS ORDER BY NAME"
cmd.ExecuteTable("table1",0)
cmd.CommandText=" SELECT DISTINCT DUTY, DATE1, TIME, FLTNO, DATE2 FROM CUSTS WHERE NAME='JOHN' ORDER BY DATE1"
cmd.ExecuteTable("table2",0)
end sub
From the WHERE NAME='JOHN', how could I replace 'JOHN' form a textbox.text?