[Resolvido] criar tabela em access

gente, tenho uma rotina que cria uma tabela no banco ACCESS sem problemas, mas preciso criar um campo de valor (currency) com 4 casas decimais e não estou conseguindo..

segue abaixo um exemplo do meu código:

Dim laco As Integer
Dim CriaTab As TableDef
Dim fldMudou As Field

With bd
For laco = 0 To .TableDefs.Count - 1
If UCase(.TableDefs(laco).Name) = UCase("ReciboVenda") Then
Exit Sub
End If
Next laco
End With

Set CriaTab = bd.CreateTableDef("ReciboVenda")
With CriaTab
Set fldMudou = .CreateField("Ordem", dbText, 5)
fldMudou.Required = False
.Fields.Append fldMudou
.Fields.Refresh

Set fldMudou = .CreateField("DataVenda", dbDate)
fldMudou.Required = False
.Fields.Append fldMudou
.Fields.Refresh

Set fldMudou = .CreateField("Viagem", dbText, 3)
fldMudou.Required = False
.Fields.Append fldMudou
.Fields.Refresh

Set fldMudou = .CreateField("Valunit", dbCurrency)
fldMudou.Required = False
.Fields.Append fldMudou
.Fields.Refresh

Set fldMudou = .CreateField("CodEmpresa", dbLong)
fldMudou.DefaultValue = "1"
fldMudou.Required = False
.Fields.Append fldMudou
.Fields.Refresh

.Properties.Refresh
End With
bd.TableDefs.Append CriaTab
End Sub

velu !!