The Weird and The Wonderful

Selection.Copy
Windows("Testbed.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Selection.Copy
ActiveSheet.Paste
Windows("test.xlsm").Activate
ActiveWindow.Close

Public Function CHeckDataPrjVyd(ByVal data As String) As Boolean
    Dim cn As System.Data.SqlServerCe.SqlCeConnection
    Dim cmd As System.Data.SqlServerCe.SqlCeCommand
    Dim dtr As System.Data.SqlServerCe.SqlCeDataReader
    Dim i As Integer = 0

    cn = New System.Data.SqlServerCe.SqlCeConnection("Data Source=" + values.DatabaseFile)
    cn.Open()
    cmd = New System.Data.SqlServerCe.SqlCeCommand("SELECT * FROM data where oznacenie like '" + data + "'", cn)
    dtr = cmd.ExecuteReader()

    While dtr.Read
        i = i + 1
        If i = 1 Then
            CHeckDataPrjVyd = True
            Exit While
        End If
        CHeckDataPrjVyd = False
    End While
    cn.Close()
End Function

Public Function IsDataPresent(ByVal data As String) As Boolean
  Using connection As New SqlCeConnection(My.Settings.ConnectionString)
    connection.Open()
    Dim commandText = String.Format("SELECT * FROM data WHERE oznacenie LIKE '{0}'", data)
    Using command As New SqlCeCommand(commandText, connection)
      Using reader = command.ExecuteReader()
        Return reader.HasRows
      End Using
    End Using
  End Using
End Function