Dim PLVAdapter As New SqlDataAdapter("Select * from PLV;select MatchID,MatchName,MatchDate,HostName,MacauP,CustomerName from PLVD,PLV where PLV.MatchID=PLVD.MatchID", PLVConnection)