Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If conn11.State = ConnectionState.Closed Then
            conn11.Open()
        End If
        If conn12.State = ConnectionState.Closed Then
            conn12.Open()
        End If
        Dim strins As String
        Dim strdel As String
        Dim txt1 As String
        txt1 = ComboBox1.Text
        If Not txt1 = "" Then
            strins = "IF EXISTS(SELECT name FROM sys.tables WHERE name = '" & txt1 & "') select * from " & txt1
            MsgBox(strins)
            cmd = New SqlCommand(strins, conn12)
            dr.Close()
            dr = cmd.ExecuteReader
            If dr.Read Then
                MsgBox("table exists")
                strdel = "delete from [jay1].dbo. " & txt1.ToString
                MsgBox(strdel)
                cmd = New SqlCommand(strdel, conn12)
                dr.Close()
                dr = cmd.ExecuteReader
                MsgBox("records deleted")
                strins = "insert into [jay1].dbo." & txt1.ToString & " select * from [jay].dbo." & txt1.ToString
                MsgBox(strins)
                cmd = New SqlCommand(strins, conn12)
                dr.Close()
                dr = cmd.ExecuteReader
                MsgBox("records inserted into new database")
            Else
                MsgBox("table doesnot exist")
                strins = "select * into [jay1].dbo. " & txt1.ToString & " from [jay].dbo. " & txt1.ToString
                MsgBox(strins)
                cmd = New SqlCommand(strins, conn12)
                dr.Close()
                dr = cmd.ExecuteReader
                MsgBox("new table created and records inserted")
            End If
        Else
            MsgBox("table not selected")
        End If
    End Sub