Dim rs As New ADODB.Recordset
    Dim strSql As String
   
   strSql = "SELECT DISTINCT tbl_Report.ReportMonth, tbl_Customer_Interest.CustomerID FROM tbl_Customer_Interest INNER JOIN tbl_Report ON tbl_Customer_Interest.ReportID = tbl_Report.ReportID

Private Sub Command12_Click()
Dim strSql As String
       strSql = "Delete from tbl_city where CityId=" & Val(Me!txtEmail.Text) & ";"
    Set cn = CurrentProject.Connection
    cn.Execute strSql
    
    Debug.Print "MyTableView created"
    Set cn = Nothing
End Sub

      Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
                Dim paramField As New CrystalDecisions.Shared.ParameterField()
                Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
                Dim paramField2 As New CrystalDecisions.Shared.ParameterField()
                Dim discreteVal2 As New CrystalDecisions.Shared.ParameterDiscreteValue()

Dim rpt As New rptIntervals()
        Dim con As SqlConnection
        Dim sql As String
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dc As CrystalDecisions.Shared.DiscreteOrRangeKind
        con = New SqlConnection(strCon)

  Dim rpt As New rptOpenCase()
        Dim con As SqlConnection
        Dim sql As String
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        con = New SqlConnection(strCon)

  For h = 2 To ds.Tables(0).Rows.Count
                For j = 0 To ds.Tables(0).Columns.Count - 1
                    k = 0
  Excel.Cells(h, j) = IIf(ds.Tables(0).Rows(k).Item(j).ToString = "", "-", ds.Tables(0).Rows(k).Item(j).ToString)
                    k = k + 1

                Next