请帮我把生成表查询转换成SQL语句来实现

Private Sub Command0_Click()
DoCmd.OpenQuery "TB1_生成表查询"
End Sub

Private Sub Command1_Click()
DoCmd.RunSQL "SELECT TB1.姓名, TB2.省份, TB1.资产, TB1.出生日期 INTO 希望得到的结果" _
& " FROM TB1 INNER JOIN TB2 ON TB1.籍贯 = TB2.省份" _
& " WHERE (((TB2.省份)='北京' Or (TB2.省份)='上海') AND ((TB1.资产)>100) AND ((TB1.出生日期) Between #1/1/1965# And #1/1/2016#))"
End Sub