Arkadaslar

1 - asagidaki kod icinde IIf(H.SIGN=1,H.AMOUNT,0) nasil kullanilirim,
2 - aslinda bunun yerine MBorc(Veri1,Veri2) seklinde bir kod hazirlamistim Bunu nasil Kullanabilirim ('Veri"ler rakam)
[code=vba]


Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
'Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection

cn.ConnectionString = strConnect

cn.Open "server=" & strServer & ";driver={SQL Server};database=" & strDatabase & ";