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 & ";TimeOut=1000;dsn=’’;", strUID, strPWD
If cn.State = adStateOpen Then
rst.CursorLocation = adUseClient
 
     Dim Link As String
    Link = Forms!AnaMenu!Filitre.Form.SelectedList
 
    Dim SqlTbl, SqlTbl2 As String
    SqlTbl = "LG_" & Link & "_01_" & "KSLINES H"
    SqlTbl2 = "LG_" & Link & "_KSCARD K"
 
    Dim Kriter As String
    Kriter = " WHERE"
    Kriter = Kriter & " DATE_>='"
    Kriter = Kriter & AktifTarih
    Kriter = Kriter & "' AND DATE_<='"
    Kriter = Kriter & AktifTarih
    Kriter = Kriter & "' AND"
    Kriter = Kriter & " LINEEXP LIKE '%"
    Kriter = Kriter & AktifArama
    Kriter = Kriter & "%'"
 
    SqlStr = "SELECT " & "K.NAME 'KASA', H.DATE_'TARIH', H.CUSTTITLE 'CARIHESAP', H.LINEEXP 'ACIKLAMA', IIf(H.SIGN=0,H.AMOUNT,0) 'BORC', IIf(H.SIGN=1,H.AMOUNT,0) 'ALACAK', H.SIGN 'ISLEMTURU'"
    SqlStr = SqlStr & " FROM "
    SqlStr = SqlStr & SqlTbl2
    SqlStr = SqlStr & " INNER JOIN "
    SqlStr = SqlStr & SqlTbl
    SqlStr = SqlStr & " ON K.LOGICALREF=H.CARDREF"
    SqlStr = SqlStr & Kriter
    SqlStr = SqlStr & " ORDER BY DATE_"
    Forms!AnaMenu!LabelProgram = SqlStr
rst.Open SqlStr, cn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
Else
 
End If
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
 
 
Private Sub Form_Unload(Cancel As Integer)
   'Close the ADO connection we opened
   Dim cn As ADODB.Connection
'   Set cn = Me.Recordset.ActiveConnection
'   cn.Close
   Set cn = Nothing
End Sub

......
 
    SqlStr = "SELECT " & _
                        "K.NAME 'KASA', H.DATE_ 'TARIH', " & _
                        "H.CUSTTITLE 'CARIHESAP', H.LINEEXP 'ACIKLAMA', " & _
                        "(Case When H.SIGN=0 then H.AMOUNT else 0 End) 'BORC', " & _
                        "(Case When H.SIGN=1 then H.AMOUNT else 0 End) 'ALACAK', " & _
                        "H.SIGN 'ISLEMTURU'"
    SqlStr = SqlStr & " FROM "
    SqlStr = SqlStr & SqlTbl2
    SqlStr = SqlStr & " INNER JOIN "
    SqlStr = SqlStr & SqlTbl
    SqlStr = SqlStr & " ON K.LOGICALREF=H.CARDREF"
    SqlStr = SqlStr & Kriter
    SqlStr = SqlStr & " ORDER BY DATE_"
......

Public Function CHModul(Veri1 As Integer)
 
            Select Case Veri1
                Case 1
                CHModul = ""
                Case 2
                CHModul = ""
                Case 3
                CHModul = ""
                Case 4
                CHModul = "Fatura"
                Case 5
                CHModul = "Virman"
                Case 6
                CHModul = ""
                Case 7
                CHModul = "Banka"
                Case 8
                CHModul = ""
                Case 9
                CHModul = ""
                Case 10
                CHModul = "Kasa"
 
            End Select
End Function

Select Case Veri1
                Case 1, 2, 3, 6, 8, 9
                CHModul = ""
                Case 4
                CHModul = "Fatura"
                Case 5
                CHModul = "Virman"
                Case 7
                CHModul = "Banka"
                Case 10
                CHModul = "Kasa"
End Select