Per il primo punto prova afare cosi:
Dim data As Date
Dim DataLater As String
data = Format(CDate(TxData.Text), "dd-mm-yyyy")
Select Case Mid(data, 4, 2)
Case Is = "01"
DataLater = Mid(data, 1, 2) & " " & "Gen" & " " & Mid(data, 7, 4)
Case Is = "02"
DataLater = Mid(data, 1, 2) & " " & "Feb" & " " & Mid(data, 7, 4)
Case Is = "03"
DataLater = Mid(data, 1, 2) & " " & "Mar" & " " & Mid(data, 7, 4)
Case Is = "04"
DataLater = Mid(data, 1, 2) & " " & "Apr" & " " & Mid(data, 7, 4)
Case Is = "05"
DataLater = Mid(data, 1, 2) & " " & "Mag" & " " & Mid(data, 7, 4)
Case Is = "06"
DataLater = Mid(data, 1, 2) & " " & "Giu" & " " & Mid(data, 7, 4)
Case Is = "07"
DataLater = Mid(data, 1, 2) & " " & "Lug" & " " & Mid(data, 7, 4)
Case Is = "08"
DataLater = Mid(data, 1, 2) & " " & "Ago" & " " & Mid(data, 7, 4)
Case Is = "09"
DataLater = Mid(data, 1, 2) & " " & "Set" & " " & Mid(data, 7, 4)
Case Is = "10"
DataLater = Mid(data, 1, 2) & " " & "Ott" & " " & Mid(data, 7, 4)
Case Is = "11"
DataLater = Mid(data, 1, 2) & " " & "Nov" & " " & Mid(data, 7, 4)
Case Is = "12"
DataLater = Mid(data, 1, 2) & " " & "Dic" & " " & Mid(data, 7, 4)
End Select
Dim StringaSQL As String
StringaSQL = "select progressivo as Prog, date_format(data,'%d %m %Y') as Data, " _
& " codicepcdare as Dare ,codicepcavere as Avere ,Descrizione , format(Importo,2) as Importo " _
& " from primanota where data >= " & Chr(39) & DataLater & Chr(39)
Adodc1.RecordSource = StringaSQL
Adodc1.Refresh
End Sub
Cmq se vuoi il codice che ho scritto io lo puoi trasformare in una funzione,
come preferisci!!!
per il secondo punto prova ad usare FormatCurrency(Importo, , , vbFalse)
questo non l'ho provato fammi sapere!!!