Code:
Private Sub lskk_Click()
Dim stsql As String
stsql = " SELECT romaji,hiragana,btkkamus, vp1.hslperub as hp1, vp2.hslperub as hp2,vp3.hslperub as hp3,vp4.hslperub as hp4"
stsql = stsql & " FROM jepang inner join mengalami vp1 on jepang.idjp=vp1.idjp inner join mengalami vp2 on jepang.idjp=vp2.idjp"
stsql = stsql & " inner join mengalami vp3 on jepang.idjp=vp3.idjp inner join mengalami vp4
...