ADOを直接使った事がないですが……

> myrec.Open "select * from test where syain_no='" + Combo_no.Text + "';, myADOcon"
の最後の, myADOconっていうのは文字列に含めてはいけないのではないでしょうか。つまり，
myrec.Open "select * from test where syain_no='" + Combo_no.Text + "';", myADOcon
ではないでしょうか。