Dim query as string = "SELECT TDocumento.documento, TComDoc.data_penale FROM TComDoc INNER JOIN TDocumento ON TComDoc.fk_documento = TDocumento.id_documento WHERE TComDoc.fk_commessa =" & id_commessa & " AND TComDoc.penale = 'True' ORDER BY TDocumento.documento"
adapter = New System.Data.SqlClient.SqlDataAdapter(query, con)