把透明图层填充颜色:我有个程序,我们的上头说太复杂了

我有个程序,我们的上头说太复杂了

可以用简单的,可是我想破头都想不出来,

天啦,我才接触VB2个月也,而且还放在我一个2个星期前才开始学的数据库

有谁可以帮帮我

If Len(Myname) > 0 Then
If Len(Myhw) > 0 And Len(Myplace) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME LIKE '%" + Myname + "%'" _
+ " AND SHIYOU_BASYO LIKE '%" + Myplace + "%' AND HARD_KUBUN LIKE '%" + Myhw + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myhw) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME LIKE '%" + Myname + "%'" _
+ " AND HARD_KUBUN LIKE '%" + Myhw + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myplace) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME LIKE '%" + Myname + "%'" _
+ " AND SHIYOU_BASYO LIKE '%" + Myplace + "%'", 1) 'WKTRN001表を开く
Else
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME LIKE '%" + Myname + "%'", 1) 'WKTRN001表を开く
End If
Else
If Len(Myused) > 0 And Len(Myplace) > 0 And Len(Myhw) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE SHIYOU_BASYO LIKE '%" + Myplace + "%'" _
+ " AND HARD_KUBUN LIKE '%" + Myhw + "%' AND USERNAME LIKE '%" + Myused + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myused) > 0 And Len(Myplace) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE SHIYOU_BASYO LIKE '%" + Myplace + "%'" _
+ " AND USERNAME LIKE '%" + Myused + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myused) > 0 And Len(Myhw) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE HARD_KUBUN LIKE '%" + Myhw + "%'" _
+ " AND USERNAME LIKE '%" + Myused + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myplace) > 0 And Len(Myhw) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE SHIYOU_BASYO LIKE '%" + Myplace + "%'" _
+ " AND HARD_KUBUN LIKE '%" + Myhw + "%'AND NOT USERNAME LIKE '-'", 1) 'WKTRN001表を开く
ElseIf Len(Myused) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME LIKE '%" + Myused + "%'", 1) 'WKTRN001表を开く
ElseIf Len(Myplace) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE SHIYOU_BASYO LIKE '%" + Myplace + "%'" _
+ " AND NOT USERNAME LIKE '-'", 1) 'WKTRN001表を开く
ElseIf Len(Myhw) > 0 Then
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE HARD_KUBUN LIKE '%" + Myhw + "%'" _
+ " AND NOT USERNAME LIKE '-'", 1) 'WKTRN001表を开く
Else
Set hmWKMST002 = ps_OraDB.CreateDynaset("SELECT * FROM WKMST002 WHERE USERNAME NOT LIKE '-'", 1) 'WKTRN001表を开く
End If
End If

以上的是我做的程序

有变简单方法的朋友告诉我哦

谢谢